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preface 


The limits of my language mean 
the limits of my world. 


Ludwig Wittgenstein 


Learning quantum mechanics is difficult and counter-intuitive. The first lectures | heard were filled with 
strange concepts that had no relationship with the mechanics | knew, and it took me years of solving 
research problems until | acquired even a semblance of understanding and intuition. This process is much 
like learning a new language, in which a solid mastery of the concepts and rules is required before new ideas 
and relationships can be expressed fluently. 

The major difficulty in bridging the chasm between introductory quantum lectures, on the one hand, and 
advanced research topics, on the other, was for me the lack of such a language, or of a technical framework 
in which quantum ideas could be expressed and manipulated. On the one hand, | had the hand tools of 
algebraic notation, which are understandable but only serve to express very small systems and ideas; on the 
other hand | had diagrams, circuits, and quasi-phenomenological formulae that describe interesting research 
problems, but which are difficult to grasp with the mathematical detail | was looking for. 

This book is an attempt to help students transform all of the concepts of quantum mechanics into 
concrete computer representations, which can be constructed, evaluated, analyzed, and hopefully understood 
at a deeper level than what is possible with more abstract representations. lt was written for a Master's 
and PhD lecture given yearly at the University of Basel, Switzerland. The goal is to give a language to 
the student in which to speak about quantum physics in more detail, and to start the student on a path 
of fluency in this language. We will revisit most of the problems encountered in introductory quantum 
mechanics, focusing on computer implementations for finding analytical as well as numerical solutions and 
their visualization. On our journey we approach questions such as: 


e You already know how to calculate the energy eigenstates of a single particle in a simple one-dimensional 
potential. How can such calculations be generalized to non-trivial potentials, higher dimensions, and 
interacting particles? 


e You have heard that quantum mechanics describes our everyday world just as well as classical 
mechanics does, but have you ever seen an example where such behavior is calculated in detail and 
where the transition from classical to quantum physics is evident? 


e How can we describe the internal spin structure of particles? How does this internal structure couple 
to the particles' motion? 


e What are qubits and quantum circuits, and how can they be assembled to simulate a future quantum 
computer? 


Most of the calculations necessary to study and visualize such problems are too complicated to be done by 
hand. Even relatively simple problems, such as two interacting particles in a one-dimensional trap, do not 
have analytic solutions and require the use of computers for their solution and visualization. More complex 
problems scale exponentially with the number of degrees of freedom, and make the use of large computer 
simulations unavoidable. 

The methods presented in this book do not pretend to solve large-scale quantum-mechanical problems 
in an efficient way; the focus here is more on developing a descriptive language. Once this language is 
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established, it will provide the reader with the tools for understanding efficient large-scale calculations 
better. 


Why Mathematica? 


This book is written in the Wolfram language of Mathematica (version 11); however, any other language 
such as Matlab or Python may be used with suitable translation, as the core ideas presented here are not 
specific to the Wolfram language. 

There are several reasons why Mathematica was chosen over other computer-algebra systems: 


e Mathematica is a very high-level programming environment, which allows the user to focus on what 
s?he wants to do instead of how it is done. The Wolfram language is extremely expressive and can 
perform deep calculations with very short and unencumbered programs. 


e Mathematica supports a wide range of programming paradigms, which means that you can keep 
programming in your favorite style. See section 1.9 for a concrete example. 


e [he Notebook interface of Mathematica provides an interactive experience that holds programs, 
experimental code, results, and graphics in one place. 


e Mathematica seamlessly mixes analytic and numerical facilities. For many calculations it allows you to 
push analytic evaluations as far as possible, and then continue with numerical evaluations by making 
only minimal changes. 


e A very large number of algorithms for analytic and numerical calculations is included in the Mathematica 
kernel and its libraries. 


Mathematica source code 


Some sections of this book contain embedded Mathematica source code files, for direct evaluation by the 
reader (see page 121 for a list of embedded files). If your PDF reader supports embedded files, you will see 
a double-clickable orange link here: [code]. If all you see is a blank space between orange square brackets, 
or a non-clickable orange link, your PDF reader does not support embedded files; please switch to the 
Adobe® Acrobat® Reader®. 


outline of discussed topics 


In five chapters, this book takes the student all the way to relatively complex numerical simulations of 
quantum circuits and interacting particles with spin: 


Chapter 1 gives an introduction to Mathematica and the Wolfram language, with a focus on techniques 
that will be useful for this book. This chapter can be safely skipped or replaced by an alternative 
introduction to Mathematica. 


Chapter 2 makes the connection between quantum mechanics and vector/matrix algebra. In this chapter, 
the abstract concepts of quantum mechanics are converted into computer representations, which 
form the basis for the following chapters. 


Chapter 3 discusses quantum systems with finite-dimensional Hilbert spaces, focusing on spin systems 
and qubits. These are the most basic quantum-mechanical elements and are ideal for making a first 
concrete use of the tools of chapter 2. 


Chapter 4 discusses the quantum mechanics of particles moving in one- and several-dimensional space. 
We develop a real-space description of these particles’ motion and interaction, and stay as close as 
possible to the classical understanding of particle motion in phase space. 


Chapter 5 connects the topics of chapter 3 and chapter 4, describing particles with spin that move through 
space. 


Wolfram language overview 


The Wolfram language is a beautiful and handy tool for expressing a wide variety of technical thoughts. 
Wolfram Mathematica is the software that implements the Wolfram language. In this chapter, we have a 
look at the most central parts of this language, without focusing on quantum mechanics yet. Students who 
are familiar with the Wolfram language may skip this chapter; others may prefer alternative introductions. 


Wolfram Research, the maker of Mathematica and the Wolfram language, provides many resources for 
learning: 


e https://www.wolfram.com/mathematica/resources/ — an overview of Mathematica resources 
to learn at your own pace 


e https://reference.wolfram.com/language/guide/LanguageOverview.html — an overview of 
the Wolfram language 


e https://www.wolfram.com/language/ — the central resource for learning the Wolfram language 


e https://reference.wolfram.com/language/ — the Mathematica documentation 
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1.1 introduction 


Wolfram Mathematica is an interactive system for mathematical calculations. The Mathematica system is 
composed of two main components: the front end, where you write the input in the Wolfram language, 
give execution commands, and see the output, and the kernel, which does the actual calculations. 


front end kernel 
724-3" 


This distinction is important to remember because the kernel remembers all the operations in the order 
they are sent to it, and this order may have nothing to do with the order in which these commands are 
displayed in the front end. 

When you start Mathematica you see an empty “notebook” in which you can write commands. These 
commands are written in a mixture of text and mathematical symbols and structures, and it takes a bit of 
practice to master all the special input commands. In the beginning you can write all your input in pure 
text mode, if you prefer. Let's try an example: add the numbers 2 + 3 by giving the input 


In[1]: 2-43 


and, with the cursor anywhere within the "cell" containing this text (look on the right edge of the notebook 
to see cell limits and groupings) you press “shift-enter”. This sends the contents of this cell to the kernel, 
which executes it and returns a result that is displayed in the next cell: 


Out[1]- 5 


If there are many input cells in a notebook, they only get executed in order if you select "Evaluate Notebook" 
from the "Evaluation" menu; otherwise you can execute the input cells in any order you wish by simply 
setting the cursor within one cell and pressing "shift-enter". 

The definition of any function or symbol can be called up with the ? command: 


In[2]:= ?Factorial 
n! gives the factorial of n. >> 


The arrow > that appears at the end of this informative text is a hyperlink into the documentation, where 
(usually) instructive examples are presented. 


1.1.1 exercises 
Do the following calculations in Mathematica, and try to understand their structure: 


Q1.1 Calculate the numerical value of the Riemann zeta function C(3) with 


In[3]:= N [Zeta [3] ] 


Q1.2 Square the previous result (%) with 


In [4] := a 


Q1.3 Calculate {5° sin(x)e *dx with 


1 |Ints1:= Integrate[Sin[x]*Exp[-x], {x, 0, Infinity}] 
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Q1.4 Calculate the first 1000 digits of 7 with 


1 | In[6]:= N[Pi, 1000] 


or, equivalently, using the Greek symbol 711=Pi, 


1 | In[7]:= N(x, 1000] 


Q1.5 Calculate the analytic and numeric values of the Clebsch-Gordan coefficient (100, 10; 200, —12|110, —2): 


1 |In[8:- ClebschGordan[{100, 10), (200, -12}, (110, -2}] 


Q1.6 Calculate the limit lim, ,o 22 with 


x 


1 |Infol:= Limit[Sin[x]/x, x => 0] 


Q1.7 Make a plot of the above function with 


1 |In[10]:- Plot[Sin[x]/x, {x, -20, 20}, PlotRange -> A11] 


Q1.8 Draw a Mandelbrot set with 


1 |Imt11J:= F[c_, imax ] := Abs[NestWhile[*72+c%, 0., Abs[#]<=2&, 1, imax]] <= 2 
2 |In[12]:= With[{n = 100, imax = 1000}, 
3 Graphics [Raster [Table [Boole[!F[xtI*y,imax]] ,f{y,-2,2,1/n},{x,-2,2,1/n}]]]] 


Q1.9 Do the same with a built-in function call: 


1 |In[13]:- MandelbrotSetPlot [] 


1.2 variables and assignments 


https: //reference.wolfram.com/language/howto/WorkWithVariablesAndFunctions. html 
Variables in the Wolfram language can be letters or words with uppercase or lowercase letters, including 
Greek symbols. Assigning a value to a variable is done with the = symbol, 


In[i4]: a = 5 
Qut[14]- 5 


If you wish to suppress the output, then you must end the command with a semi-colon: 


In[15]:; a = 5; 


The variable name can then be used anywhere in an expression: 


In[16]: a + 2 
Out [16]= 7 
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1.2.1 immediate and delayed assignments 


ttps://reference.wolfram.com/language/tutorial/ImmediateAndDelayedDefinitions.html 
Consider the two commands 


1 |In[17]:- a = RandomReal[] 
2 |0ut[17]1= 0.38953 
3 |In[18]:- b := RandomReal [] 


(your random number will be different). 

The first statement a=... is an immediate assignment, which means that its right-hand side is evaluated 
when you press shift-enter, produces a specific random value, and is assigned to the variable a (and printed 
out). From now on, every time you use the variable a, the exact same number will be substituted. In this 
sense, the variable a contains the number 0.389 53 and has no memory of where it got this number from. 
You can check the definition of a with ?a: 


1 |In[19]:= Fa 
2 Global‘a 
3 a = 0.38953 
The definition b:=... is a delayed assignment, which means that when you press shift-enter the right-hand 


side is not evaluated but merely stored as a definition of b. From now on, every time you use the variable 
b, its right-hand-side definition will be substituted and executed, resulting in a new random number each 
time. You can check the definition of b with 


1 | In[201:= Tb 
2 Global “b 
3 b := RandomReal [] 


Let's compare the repeated performance of a and b: 


i- | Ge Bt la, b} 

2 |Out[21]- (0.38953, 0.76226} 

3 In [22] := fs; b) 

2 | Out(22]1= (0.38953, 0.982921) 
5 In [23] := la, b) 

Out[23]- (0.38953, 0.516703) 
In[24] := la, b} 

Out[24]- (0.38953, 0.0865169} 


If you are familiar with computer file systems, you can think of an immediate assignments as a hard link (a 
direct link to a precomputed inode number) and a delayed assignment as a soft link (symbolic link, textual 
instructions for how to find the linked target). 


1.2.2 exercises 


Q1.10 Explain the difference between 


1 |In[251:= x= u * V 
and 
1 |In[26]:= y = ut v 


In particular, distinguish the cases where u and v are already defined before x and y are defined, 
where they are defined only afterwards, and where they are defined before but change values after 
the definition of x and y. 


1.3. FOUR KINDS OF BRACKETING 5 


1.3 


https:/ 


There 


four kinds of bracketing 


/reference.wolfram.com/language/tutorial/TheFourKindsOfBracketingInTheWolframLanguage.html 


are four types of brackets in the Wolfram language: 


parentheses for grouping, for example in mathematical expressions: 


In[27]:= 2* (3-Y) 


e square brackets for function calls: 


In[28]:- Sin [O š 2] 


curly braces for lists: 


In[29]:; v = (a, b, c] 


double square brackets for indexing within lists: (see section 1.10) 


m[30]:- v[[2]] 


1.4 


There 


prefix and postfix 


are several ways of evaluating a function call in the Wolfram language, and we will see most of them 


in this lecture. As examples of function calls with a single argument, the main ways in which sin(0.2) and 
V2 + 3 can be calculated are 


standard notation (infinite precedence): 


In[31]:- Sin[0.2] 

Out [31]= 0.198669 

In[32]:- Sqrt [2+3] 
Qut[32]- Sqrt [5] 


notation with © (quite high precedence, higher than multiplication): 


In[33]:- Sin @ 0.2 
Out [33]= 0. 198669 
In[34]:= Sqrt @ 2+3 
out [34]= 3+Sqrt [2] 


Notice how the high precedence of the € operator effectively evaluates (Sqrt@2)+3, not Sqrt@(2+3). 


postfix notation with // (quite low precedence, lower than addition): 


w 


In[35]:- 0.2 //Sin 
Out [35]= 0.198669 
In[36]:- 2+3 //Sqrt 
out [36]= Sqrt [5] 


Notice how the low precedence of the // operator effectively evaluates (243) //N, not 2+(3//N). 


Postfix notation is often used to transform the output of a calculation: 


e Adding //N to the end of a command will convert the result to decimal representation, if possible. 
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e Adding //MatrixForm to the end of a matrix calculation will display the matrix in a tabular 
form. 


e Adding //Timing to the end of a calculation will display the result together with the amount of 
time it took to execute. 


If you are not sure which form is appropriate, for example if you don't know the precedence of the involved 
operations, then you should use the standard notation or place parentheses where needed. 


1.4.1 exercises 


Q1.11 Calculate the decimal value of Euler's constant e (E) using standard, prefix, and postfix notation. 


1.5 programming constructs 


When you program in the Wolfram language you can choose between a number of different programming 
paradigms, and you can mix these as you like. Depending on the chosen style, your program may run much 
faster or much slower. 


1.5.1 procedural programming 


https://reference.wolfram.com/language/guide/ProceduralProgramming.html 

A subset of the Wolfram language behaves very similarly to C, Python, Java, or other procedural programming 
languages. Be very careful to distinguish semi-colons, which separate commands within a single block of 
code, from commas, which separate different code blocks! 


Looping constructs behave like in common programming languages: 


i |In[37]:- Forli = 1, i <= 5, i++ 
Print[il] 


, 


PWN [GA 


y 
a 


Notice that i is now a globally defined variable, which you can check with 


1 |In[38]:- ?i 
Global'i 
i-6 


The following, on the other hand, does not define the value of the variable j in the global context: 


1 |In[39):- Do[Print[jl, {j, 1, 57] 
2 1 
3 2 
4 3 
4 
6 5 
7 | In[40]:= T] 
Global “j 


In this sense, j is a local variable in the Do context. The following, again, defines k as a global 
variable: 


1.5. 
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In[41]:- k = 1; 
While[k <= 5, 
Print[k]; 
k++] 


In[42]:- Tk 


Conditional execution: The conditional statement If[condition, do-when-true, do-when-false] 


w 


w 


follows the same logic as in every other programming language, 


In[43]:- If[5! > 100, 
Print["larger"], 
Print["smaller or equal"]] 

larger 


Notice that the If statement has a return value, similar to the "?" statement of C and Java: 


In[44:- a = If[5! > 100, 1, -1] 
Out [44]= 1 


Apart from true and false, Mathematica statements can have a third state: unknown. For example, 
the comparison x==0 evaluates to neither true nor false if x is not defined. The fourth slot in the If 
statement covers this case: 


In[45]:= x == 0 
Out [45]= x == 0 
In[46]:- If[x == 0, "zero", "nonzero", "unknown"] 


Out[46]- "unknown" 


Modularity: code can use local variables within a module: 


In[47]:- Module [{i}, 


i = 1; 
Whilelí > 1/192, X = 1/2]; 
ag 


out [47]= 1/256 


After the execution of this code, the variable i is still undefined in the global context. 


1.5.2 exercises 


Q1.12 


Q1.13 


Write a program that sums all integers from 123 to 9968. Use only local variables. 


Write a program that sums consecutive integers, starting from 123, until the sum is larger than 
10000. Return the largest integer in this sum. Use only local variables. 
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1.5.3 functional programming 


https://reference.wolfram.com/language/guide/FunctionalProgramming.html 
Functional programming is a very powerful programming technique that can give large speedups in compu- 
tation because it can often be parallelized over many computers or CPUs. In our context, we often use lists 
(vectors or matrices, see section 1.10) and want to apply functions to each one of their elements. 

“The most common functional programming constructs are 


Anonymous functions: | you can quickly define a function with parameters #1, #2, #3, etc., terminated 
with the & symbol: (the symbol # is an abbreviation for #1) 


1 |In[48]:- f = #°2 &; 

2 | In[49] := £171 

3 | Out[49]= 49 

4 |In[50]:- g = 41-82 &; 
s |In[511:= g[88, 9] 

6 |Out[51]- 79 


Functions and anonymous functions, for example #*2&, are first-class objects” just like numbers, 
matrices, etc. You can assign them to variables, as in In [48] and In[50] above; you can also use 
them directly as arguments to other functions, as for example in 1n[55] below; or you can use them 
as return values of other functions, as in In [478]. 


The symbol ## stands for the sequence of all parameters of a function: 


1 | In[52]:- f = {4 23,82 ,4,5,67 &; 
2 | In[53]:= f[7T,m,c] 
Out[53]- (1,2,3,7,a,C,4,5,67+ 


The symbol #0 stands for the function itself. This is useful for defining recursive anonymous functions 
(see item 7 of section 1.9). 


Map /@: apply a function to each element of a list. 


1 |Inls4:= a = (1, 2, 3, 4, 5, 6, 7, 8}; 
2 |In[55]:= Map[#72 Y, a] 

Out[55]- (1, 4, 9, 16, 25, 36, 49, 64} 
In[56]:= 4^2 & /@ a 

Out[56]- (1, 4, 9, 16, 25, 36, 49, 64} 


w 


Notice how we have used the anonymous function #*2& here without ever giving it a name. 


Apply @@: apply a function to an entire list and generate a single result. For example, applying Plus to 
a list will calculate the sum of the list elements; applying Times will calculate their product. This 
operation is also known as reduce.? 


1 |InfS7]:- a = 1, 2, 3, 4, 5, 6, 7, 8}; 
2 In[58]:- Apply[Plus, a] 


3 |Out[58]- 36 
4 |In[59]:- Plus 00 a 
Qut[59]- 36 


e | In[60):- Apply[Times, a] 
7 |Out[60]- 40320 

3 |In[e1]:- Times 00 a 

9 |Out[61]- 40320 


1See https://en.wikipedia.org/wiki/Anonymous_functions. 
?See https://en.wikipedia.org/wiki/First-class citizen. 
3See https: //en.wikipedia.org/wiki/MapReduce. 
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1.5.4 exercises 


Q1.14 Write an anonymous function with three arguments that returns the product of these arguments. 


Q1.15 Given a list 


1 In[62]:;: a = (0.1, 0.9, 2.25, -1.9}; 


calculate x ++ sin(x?) for each element of a using the Map operation. 


Q1.16 Calculate the sum of all the results of Q1.15. 


N 


w 


1 | In[65]:= f [0 ë 3] 
2 |Qut[65]- 0.985067 
In[66]:- f [0] 
4 Power: Infinite expression 1/0 encountered 


N 


w 


1.6 function definitions 


https://reference.wolfram.com/language/tutorial/DefiningFunctions.html 
Functions are assignments (see section 1.2) with parameters. As for parameter-free assignments, we 
distinguish between immediate and delayed function definitions. 


1.6.1 


We start with immediate definitions: a function f(x) = sin(x)/x is defined with 


immediate function definitions 


In[63]:- f[x_] = Sinlx]/x; 


Notice the underscore _ symbol after the variable name x: this underscore indicates a pattern (denoted 
by _) named x, not the symbol x itself. Whenever this function f is called with any parameter value, 
this parameter value is inserted wherever x appears on the right-hand side, as is expected for a function 
definition. You can find out how f is defined with the ? operator: 


In[64]:- Pf 
Global'f 


f[x ] = Sin[x]/x 


and you can ask for a function evaluation with 


Infinity: Indeterminate expression 0 ComplexInfinity encountered 


Out[66]- Indeterminate 


Apparently the function cannot be evaluated for x — 0. We can fix this by defining a special function value: 


In[67]:- f LO] = 13 


Notice that there is no underscore on the left-hand side, so there is no pattern definition. The full definition 
of f is now 


In[68]:= ?f 
Global ‘f 
f£[0] = 1 
f[x ] = Sin(x]/x 


If the function £ is called, then these definitions are checked in order of appearance in this list. For example, 
if we ask for f [0], then the first entry matches and the value 1 is returned. If we ask for f [0.3], then the 
first entry does not match (since O and 0.3 are not strictly equal), but the second entry matches since 
anything can be plugged into the pattern named x. The result is sin(0.3)/0.3 — 0.985 067, which is what 
we expected. 
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1.6.2 delayed function definitions 


Just like with delayed assignments (section 1.2.1), we can define delayed function calls. For comparison, 
we define the two functions 


In[69]:- g1[x_] = x + RandomReal[] 
Out [69]= 0.949868 + x 
In[701:= g2[x ] := x + RandomReal [] 


Check their effective definitions with ?g1 and ?g2, and notice that the definition of g1 was executed 
immediately when you pressed shift-enter and its result assigned to the function g1 (with a specific value 
for the random number, as printed out), whereas the definition of g2 was left unevaluated and is executed 
each time anew when you use the function g2: 


In(71J:= {g1[2], g2[2]} 
Out[71]- (2.94987, 2.33811} 
In[72)1:- fg1[2], g2[2]} 
Out [72]= (2.94987, 2.96273} 
Int731:= {gi[2], g2[2]} 
Out (73]= (2.94987, 2.18215} 


1.6.3 memoization: functions that remember their results 


https: //reference.wolfram.com/language/tutorial/FunctionsThatRememberValuesTheyHaveF ound. html 
When we define a function that takes a long time to evaluate, we may wish to store its output values such 
that if the function is called with identical parameter values again, then we do not need to re-evaluate the 
function but can simply remember the already calculated result.* We can make use of the interplay between 
patterns and values, and between immediate and delayed assignments, to construct such a function that 
remembers its values from previous function calls. 

See if you can understand the following definition. 


In[74] := F[x_] d F[x] = x^T 


If you ask for ?F then you will simply see this definition. Now call 


In[75]:= F [2] 
Out[75]- 128 


and ask for ?F again. You see that the specific immediate definition of F[2]=128 was added to the list 
of definitions, with the evaluated result 128 (which may have taken a long time to calculate in a more 
complicated function). The next time you call F[2], the specific definition of F[2] will be found earlier in 
the definitions list than the general definition F[x ] and therefore the precomputed value of F[2] will be 
returned. 

When you re-define the function F after making modifications to it, you must clear the associated 
remembered values in order for them to be re-computed at the next occasion. It is a good practice to prefix 
every definition of a memoizing function with a Clear command: 


In[76]:- Clear LF] A 
In[77]:= F[x_] = F [x] - x^9 


For function evaluations that take even longer, we may wish to save the accumulated results to a file in 
order to read them back at a later time. For the above example, we save all definitions associated with the 
symbol F to the file Fdef . mx with 


^This is technically called memoization: https://en.wikipedia.org/wiki/Memoization. A similar functionality can be 
achieved with Mathematica's Once operator, which allows fine-grained control over the storage location, conditions, and 
duration of the persistent result. 
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In[781:= SetDirectory [NotebookDirectory[]]; 
In[79]:- DumpSave["Fdef.mx", F]; 


The next time we wish to continue the calculation, we define the function F and load all of its already 


known values with 


In[80]:- Clear [F] ; 


In[81]:- F[x_] := F[x] = x79 
In[82]:= SetDirectory [NotebookDirectory[]]; 
In[83]:- Get ["Fdef .mx"] ; 


1.6.4 functions with conditions on their arguments 


https: //reference.wolfram.com/language/guide/Patterns. html 


The Wolfram language 


contains a powerful pattern language that we can use to define functions that only 


accept certain arguments. For function definitions we will use three main types of patterns: 


Anything-goes: A function defined as 


1 |In[84]:- f [x_] 


f= xta 


can be called with any sort of arguments, since the pattern x_ can match anything: 


1 n[85]:= f [4] 
2 |Out[85]- 16 


3 | In[86]:- £f[2.3-0.11] 


4 |Out[86]- 5.28-0. 
5 n[87] := THL, 2, 
6 | 0ut[87]= {1,4,9, 
7 | In[88]:- f[y^2] 
s |Out[88]- y^4 


46I 
3,4 
16} 


Type-restricted: A pattern like x_Integer will only match arguments of integer type. If the function is 
called with a non-matching argument, then the function is not executed: 


5 n[93] := E [7] 
6 |Out[93]- 4 
7 |Into4J:= g[7.1] 
Out [94]= 10.1 
n[95] := g [2/3] 


10 |Out[95]- 2/3 

11 | In[96]:= g[2*3I] 
12 |Out[96]- O 

13 | In(971:- g[x] 

14 | Out [97]= glx] 


1 |In(s9]:- g[x Integer] := x-3 
2 |In[90):- g[x Rational] := x 
3 |Inl911:= g[x Real] := x*3 

4 |In[92):- g[x Complex] := 0 


Conditional: Complicated conditions can be specified with the /; operator: 
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1 |In[98]:- h[x_/;x<=3] := x72 
2 |Inf99]:= h[x_/;x>3] := x-11 
3 | In[100]:=h [2] 

4 | Out [100]=4 

In[101]:- h [5] 

6 | Out[101]=-6 


Conditions involving a single function call returning a Boolean value, for example x_/;PrimeQ[x], can 

be abbreviated with x ?PrimeQ. Other useful "question" functions are IntegerQ, NumericQ, EvenQ, 

OddQ, etc. See https: //reference.wolfram.com/language/tutorial/PuttingConstraintsOnPatterns. 
html for more information. 


1.6.5 functions with optional arguments 


https: //reference.wolfram. com/language/tutorial/OptionalAndDefaultArguments.html 
Function arguments can be optional, indicated with the : symbol. For each optional argument, a default 
value must be defined that is used whenever the function is called without the argument specified. The 
optional arguments must be the last ones in the arguments list. There can be arbitrarily many optional 
arguments. 

As an example, the function 


In{102]:=f[a_, b_:5] = {a,b} 


uses the default value b = 5 whenever it is called with only one argument: 


In[103]:- f [7] 
Out [103] = {7 P 5) 


When called with two arguments, the second argument overrides the default value for b: 


In[104]:- f [7 2] 
Out [104]- {7 " JF 


1.7 rules and replacements 


https://reference.wolfram.com/language/tutorial/ApplyingTransformationRules.html 

We will often use replacement rules in the calculations of this course. A replacement rule is an instruction 
x -» y that replaces any occurrence of the symbol (or pattern) x with the symbol y. We apply such a rule 
with the /. or ReplaceA11 operator: 


n[105]:a + 2 /. a -> 7 

Out [105] = 

n[106]:=ReplaceAll[a + 2, a -> 7] 

Out [106]=9 

n[107):9€ = d /. le -> 2, d => 8) 

Out [107]=-6 

In[108]:;- ReplaceAll[c - d, {c -> 2, d -> 8}] 
Out [108]- -6 


Rules can contain patterns, in the same way as we use them for defining the parameters of functions 
(section 1.6): 


In[109]:a + b /. x. -> x72 
Out [109]- (a + bye 


N 


[v 


[v 


N 


N 
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Notice that here the pattern x_ matched the entire expression a + b, not the subexpressions a and b. To 
be more specific and do the replacement only at level 1 of this expression, we can write 


In[110]:=Replace[a + b, x. -> x72, {1}] 
Out [110]=a72 + b^2 


Doing the replacement at level O gives again 


In[111]:=Replace[a + b, x. -> x^2, {0}] 
Out[111]- (a + b)72 


At other instances, restricted patterns can be used to achieve a desired result: 


In[112]:=a + 2 /. x Integer -> x72 
Out [1121=4 + a 


Many Wolfram language functions return their results as replacement rules. For example, the result of 
solving an equation is a list of rules: 


In[113]:.8 = Solve[x^2 - 4 == O, x] 
Qut[113]-((x -> -2}, {x -» 2}} 


We can make use of these solutions with the replacement operator /., for example to check the solutions: 


In[114]:X^2 - 4 /. s 
Out [114]- (0, oO} 


1.7.1 immediate and delayed rules 


Just as for assignments (section 1.2.1) and functions (section 1.6), rules can be immediate or delayed. 
In an immediate rule of the form x -> y, the value of y Is calculated once upon defining the rule. In a 
delayed rule of the form x :» y, the value of y is re-calculated every time the rule is applied. This can be 
important when the rule is supposed to perform an action. Here is an example: we replace c by f with 


Idb]dü. By E, d. En Sy. Ca DE fe tot 
Out[115]-(a, b, f, d, f, a, f, b) 


We do the same while counting the number of replacements with 


In[116]:-i = 0; 

Inl117):=fa, b, c, d, c, a, c, b) /. c :> (i++; Echoli, "replacement "]; f) 
> replacement 1 
> replacement 2 
> replacement 3 

gut[17]-i&; b, f, d. f, à, E, bj 

In[118]:- i 

Out [118]- 8 


In this case, the delayed rule c :» (i++; Echo[i, "replacement "]; f) isa list of commands enclosed 
in parentheses () and separated by semicolons. The first command increments the replacement counter i, 
the second prints a running commentary (see section 1.8), and the third gives the result of the replacement. 
The result of such a list of commands is always the last expression, in this case f. 
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1.7.2 repeated rule replacement 


The /. operator uses the given list of replacement rules only once: 


la[i19]:5mb fx ta <> by Bc 
Out [119]=b 


The //. operator, on the other hand, uses the replacement rules repeatedly until the result no longer 
changes (in this case, after two applications): 


Tano A ¿f. ta => b, b - cj 
Out [120]= C 


1.8 debugging and finding out how Mathematica expressions are evaluated 


https://reference.wolfram.com/language/guide/TuningAndDebugging.html 

https: //www.wolfram.com/language/elementary-introduction/2nd-ed/47-debugging-your-code.html 

The precise way Mathematica evaluates an expression depends on many details and can become very 
complicated." For finding out more about particular cases, especially when they aren't evaluated in the way 


that you were expecting, the Trace command may be useful. This command gives a list of all intermediate 
results, which helps in understanding the way that Mathematica arrives at Its output: 


In[1211:=Trace[x - 3x + 1] 
gut (1211=4-(3xX), -3X, -3xk, x-3x*1, 1-3%+x, 1-2x} 
In[122]:-X = 5; 
In(123]:=Trace[x - 3x + 1] 
Gut[123]-[(x, 5+, [i[x, 5}, SxS, 15}, -15, =15+, 5-1541, -9} 


A more verbose trace is achieved with TracePrint: 


In[124]:=TracePrintly - 3y + 1] 
y-3 y+1 
Plus 
y 
-(3 y) 
Times 
-1 
3 y 


-2 y 
Times 


5See https://reference.wolfram.com/language/tutorial/EvaluationOfExpressionsOverview.html. 
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-2 


y 
Out[124]-1 - 2 y 


It is very useful to print out intermediate results in a long calculation via the Echo command, particularly 
during code development. Calling Echo[x,1abel] prints x with the given label, and returns x; in this way, 
the Echo command can be simply added to a calculation without perturbing it: 


In[125]: Table [Echo[i!, "building table: "], íi, 3}] 
» building table: 1 
» building table: 2 


» building table: 6 
Out [125]= (1, 25 6} 


In order to run your code “cleanly” after debugging it with Echo, you can either remove all instances of 
Echo, or you can re-define Echo to do nothing: 


In[1261:=Unprotect [Echo]; Echo = #1 &; 


Re-running the code of In[125] now gives just the result: 


In{127]:=Table[Echo[i!, "building table: "], (i, 3}] 
Out [127]- (1, 2 6} 


Finally, it can be very insightful to study the “full form” of expressions, especially when it does not match a 
pattern that you were expecting to match. For example, the internal full form of ratios depends strongly on 
the type of numerator or denominator: 


n[128]:= FullForm [a/b] 
out [128]= Times la, Power[b, -1]] 
n[129]:=FullForm[1/2] 
Out[129]-Rational[1, 2] 
n[130] := FullForm[a/2] 
Out[130]- Times [Rational [1, 2], a] 
n[131]:=FullForm[1/b] 
Out[131]- Power[b, -1] 


1.8.1 exercises 


Q1.17 Why do we need the Unprotect command in In[126]? 


Q1.18 To replace a ratio a/b by the function ratio[a,b], we could enter 


1 |In[132]:-a/b /. {x_/y_ -> ratio[x,yl) 
2 | Out(132]=ratio[a,b] 


Why does this not work to replace the ratio 2/3 by the function ratio [2,3]? 


1 |Infi331:=2/3 /. {x_/y_ -> ratiolx,y]} 
2 |Out[133]- 2/3 


16 CHAPTER 1. WOLFRAM LANGUAGE OVERVIEW 


1.9 many ways to define the factorial function [code] 


The following list of definitions of the factorial function is based on the Wolfram demo https://www. 
wolfram.com/training/videos/EDUOO2/. Try to understand as many of these definitions as possible. 
What this means in practice is that for most problems you can pick the programming paradigm that suits 
your way of thinking best, instead of being forced into one way or another. The different paradigms have 
different advantages and disadvantages, which may become clearer to you as you become more familiar 
with them. 

You must call Clear [f] between different definitions! 


1. Define the function f to be an alias of the built-in function Factorial: calling f [5] is now strictly 
the same thing as calling Factorial[5], which in turn is the same thing as calling 5!. 


1 |In[134]:- f = Factorial; 


2. A call to f is forwarded to the function "!": calling £ [5] triggers the evaluation of 5!. 


In[135]:-f [n ] := n! 


3. Use the mathematical definition n! = T(n + 1): 


In[136]:-f [n ] := Gamma[n+1] 


4. Use the mathematical definition n! = [T7.., i: 


1 [In[137]:-f[n ] := Product[i, {i,n}] 


5. Rule-based recursion, using the Wolfram language's built-in pattern-matching capabilities: calling 
f [5] leads to a call of £ [4], which leads to a call of £ [3], and so on until £ [1] immediately returns 
the result 1, after which the program unrolls the recursion stack and does the necessary multiplications: 


In[138]:- f[1] = 1; 
In[139]:- f[n ] := n*f[n-1] 


6. The same recursion but without rules (no pattern-matching): 


In[140:-f[n ] := If[n == 1, 1, n*f[n-1]] 


7. Define the same recursion through functional programming: f is a function whose name is #0 and 
whose first (and only) argument is #1. The end of the function definition is marked with &. 


1 |inti4il:=-f = If[41 == 1, 1, #1*#0[#1-1]]&; 


8. procedural programming with a Do loop: 


1 | In[142]:- f [n..] 
2 Do[t 
3 tl 


Module[{t = 1}, 
tei, dí, n}H; 


9. procedural programming with a For loop: this is how you would compute factorials in procedural 
programming languages like C. It is a very precise step-by-step prescription of how exactly the 
computer is supposed to do the calculation. 


1.9. 


10. 


11. 


12. 


13. 


14. 


15. 


16. 


17. 
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In[143]:=f[n_] := Module[{t = 1, i}, 
Forli = 1, i <= n, i++, 
t *- i]; 
*1 


Make a list of the numbers 1... n (with Range[n]) and then multiply them together at once, by 
applying the function Times to this list. This is the most elegant way of multiplying all these numbers 
together, because both the generation of the list of integers and their multiplication are done with 
internally optimized methods. The programmer merely specifies what he would like the computer to 
do, and not how it is to be done. 


In[i44]:-f [n ] := Times @@ Range [n] 


Make a list of the numbers 1... and then multiply them together one after the other. 


In[145]:-f [n ] := Fold[Times, 1, Range[n]] 


Functional programming: make a list of functions (t > t, t 2t, t  3t,..., t > nt}, and then, 
starting with the number 1, apply each of these functions once. 


Infi461:=f[n_] := Fold[42[41]&, 1, Array[Function[t, #1*t]&, n]] 


Construct a list whose length we know to be nl: 


In[1i47]:-f [n ] := Length[Permutations [Range[n]]] 


Use repeated pattern-based replacement (//., see section 1.7.2) to find the factorial: start with 
the object (1, n} and apply the given rule until the result no longer changes because the pattern no 
longer matches. 


In[148]:-f[n ] := First[f1,n) //. fa_,b_/;b>0} :> {b*a,b-1}] 


Build a string whose length is n!: 


In[149]:-f[n ] := StringLength[Fold[StringJoin[Table[#1, {#2}]]&, "A", Range[n]l] 


Starting from the number n, repeatedly replace each number m by a list containing m times the 
number m — 1. At the end, we have a list of lists of ... of lists that overall contains n! times the 
number 1. Flatten it out and count the number of elements. 


In[150:-f[n ] := Length[Flatten[n //. m. /; m > 1 :> Table[m - 1, {m}]]] 


d^ (x") 
dx” 


Analytically calculate , the n'^ derivative of x”: 


In[151]:- f[n ] := D[x^n, {x, n)] 
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1.9.1 exercises 


Q1.19 In which ones of the definitions of section 1.9 can you replace a delayed assignment (:=) with an 
immediate assignment (=) or vice-versa? What changes if you do this replacement? (see section 1.2.1) 


Q1.20 In which ones of the definitions of section 1.9 can you replace a delayed rule (:>) with an immediate 
rule (->) or vice-versa? What changes if you do this replacement? (see section 1.7.1) 


Q1.21 Can you use the trick of section 1.6.3 for any of the definitions of section 1.97 
Q1.22 Write two very different programs that calculate the first hundred Fibonacci numbers {1, 1, 2,3,5,8,... }, 
where each number is the sum of the two preceding ones. 
1.10 vectors, matrices, tensors 


In this lecture we will use vectors and matrices to represent quantum states and operators, respectively. 


1.10.1 vectors 


https://reference.wolfram.com/language/tutorial/VectorÜperations.html 
In the Wolfram language, vectors are represented as lists of objects, for example lists of real or complex 
numbers: 


1 |In[152]:-V = {1,2,3,2,1,7+1}; 
2 |1n[153):- Length [v] 
Out [153]= 6 


You can access any element by its index, using double brackets, with the first element having index 1 (as in 
Fortran or Matlab), not 0 (as in C, Java, or Python): 


1 In[154]:- v [ [4] ] 
2 |Out[154]- 2 


Negative indices count from the end of the list: 


1 | In[155]:-v[ [-1]] 
2 |Out[155]- 74 I 


Lists can contain arbitrary elements (for example strings, graphics, expressions, lists, functions, etc.). 
If two vectors 4 and b of equal length are defined, then their scalar product 2 - b is calculated with 


1 |In[156]:-a = (0.1, 0.2, 0.3 + 2I); 
2 |In[157]:- b (-0. 271, [Um 2 
1n[158]:- Conjugate [a] .b 

Out[158]-0.6 - 4.0271 


Vectors of equal length can be element-wise added, subtracted, multiplied etc. with the usual operators: 


1 |In[159]:-a + b 

2 |Gut[159]-10.1 = 0.271, 0.2, 2.3 + 2.1} 
In[1601:=2 a 

0ut[160]- (0.2, 0.4, 0.6 + 4.1} 


N 
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1.10.2 matrices 


https: //reference.wolfram.com/language/tutorial/BasicMatrixOperations.html 


Matrices are lists of lists, where each sublist describes a row of the matrix: 


la[iet]s- M = 43,9 TT.41, 5,21, 10, =L1.5k 18.02 1): 
1n[162] :- Dimensions [M] 
Out [162]= {4 á 3} 


In this example, M is a 4 x 3 matrix. Pretty-printing a matrix is done with the MatrixForm wrapper, 


In[163] :=MatrixForm [M] 


Accessing matrix elements is analogous to accessing vector elements: 


In[164] :-M[ [1,31] 
Out [164]- 7 

In[165]:- ML [21] 
Out[165]-(1, 1, 2) 


Matrices can be transposed with Transpose [M]. 
Matrix-vector and matrix-matrix multiplications are done with the . operator: 


In[166]:- M. a 
Qut[166]-12.8 + 14.1, 0.9 + 4.1, 1.3 + 10.1, 0.9 + 2.1} 


1.10.3 sparse vectors and matrices 


https://reference.wolfram.com/language/guide/SparseArrays.html 

Large matrices can take up enormous amounts of computer memory. In practical situations we are often 

dealing with matrices that are "sparse", meaning that most of their entries are zero. A much more efficient 

way of storing them is therefore as a list of only their nonzero elements, using the SparseArray function. 
A given vector or matrix is converted to sparse representation with 


In[167]:-M = {{0,3,0,0,0,0,0,0,0,0}, 
10,0,0,-1,0,0,0,0,0, 07, 
10,0,0,0,0,0,0,0,0,01 

1n[168]:-Ms = SparseArray [M] 

Out [168]= SparseArray[«2», (3, 10}] 


where the output shows that Ms is a 3 x 10 sparse matrix with 2 non-zero entries. We could have entered 
this matrix more easily by giving the list of non-zero entries, 


Inl169):=Ms = SparseArray[{{1, 2} -> 3, 12, 4} -> -1}, (3, 10]; 


which we can find out from 


In[170]:- ArrayRules [Ms] 
qué fi7ol={{1, 2} -» 8, (2, 4) => LL, d, $ — 0 


which includes a specification of the default pattern {_,_}. This sparse array is converted back into a 


normal array with 


== 


In[171] := Normal [Ms] 

out (171]={{0,3,0,0,0,0,0,0,0,0}, 
(0,0:0.-12,0,0,0,0.0,0); 
(0,0,0,0,0,0,0,0,0,0) 
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Sparse arrays and vectors can be used just like full arrays and vectors (they are internally converted 
automatically whenever necessary). But for some linear algebra operations they can be much more efficient. 
A matrix multiplication of two sparse matrices, for example, scales only with the number of non-zero 
elements of the matrices, not with their size. 


1.10.4 matrix diagonalization 


“Solving” the time-independent Schródinger equation, as we will be doing in section 2.2, involves calculating 
the eigenvalues and eigenvectors of Hermitian? matrices. 
In what follows it is assumed that we have defined H as a Hermitian matrix. As an example we will use 


In[172]:-H = (10, Bas. Ls Db, 
1022, d. 0, 03, 
(-I, 0, 1, -0.2}, 
LO, uR -0.2, 3H 


eigenvalues 


The eigenvalues of a matrix H are computed with 


In[1731:=Eigenvalues [H] 
0ut[173]- 3. 0237 , 1.63842, 0.998322, -0.660442) 


Notice that these eigenvalues (energy values) are not necessarily sorted, even though in this example they 
appear in descending order. For a sorted list we use 


In[174]:- Sort [Eigenvalues [H]] 
Out [174]= (-0.660442, 0.998322, 1.63842, 3.0237} 


For very large matrices H, and in particular for sparse matrices (see section 1.10.3), it is computationally 
inefficient to calculate all eigenvalues. Further, we are often only interested in the lowest-energy eigenvalues 
and eigenvectors. There are very efficient algorithms for calculating extremal eigenvalues,” which can be 
used by specifying options to the Eigenvalues function: if we only need the largest two eigenvalue, for 
example, we call 


In[175]:-Eigenvalues [H, 2, Method -> {"Arnoldi", 
"Criteria" -> "RealPart", 
MaxIterations -> 1076}] 


Out[175]- 3. 0237 , 1.63842} 


There is no direct way to calculate the smallest eigenvalues; but since the smallest eigenvalues of H are the 
largest eigenvalues of -H we can use 


In[176]:- -Eigenvalues [-H, 2, Method -> {"Arnoldi", 
"Criteria" -> "RealPart", 
MaxlIterations -> 1076}] 
Out [176]= (0.998322, -0.660442) 


SA complex matrix H is Hermitian if H = HÌ. See https: //en.wikipedia.org/wiki/Hermitian matrix. 
"Arnoldi-Lanczos algorithm: https://en.wikipedia.org/wiki/Lanczos algorithm. 
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eigenvectors 


The eigenvectors of a matrix H are computed with 


1n(177]:- Eigenvectors [H] 

Out [177]= (40 . -0. 03946131, 0.-0.00584989I, -0.117564, 0.992264}, 
10.+0.5336421, 0.+0.2507621, 0.799103, 0.117379}, 
(0.-0.00534721, 0.+0.9559231, -0.292115, -0.029187}, 
(0.-0.8447721, 0.+0.152629I, 0.512134, 0.0279821}} 


In this case of a 4 x 4 matrix, this generates a list of four ortho-normal 4-vectors. 
Usually we are interested in calculating the eigenvalues and eigenvectors at the same time: 


In[178]:- Eigensystem[H] 

Out[178]- ((3. 0237 , 1.63842, 0.998322, -0.660442}, 
(110.-0.0394613I, 0.-0.00584989I, -0.117564, 0.992264}, 
10.40.5330421, 0.+0, 2507621, 0.799103, 0.117379}, 
10.-0.00534721, 0.+0.955923I, -0.292115, -0.029187}, 
10.-0.8447721, 0.+0.1526291, 0.512134, 0.0279821}}} 


which generates a list containing the eigenvalues and the eigenvectors. The ordering of the elements in 
the eigenvalues list corresponds to the ordering in the eigenvectors list; but the sorting order is generally 
undefined. To generate a list of (eigenvalue, eigenvector) pairs in ascending order of eigenvalues, we 
calculate 


1n[179]:- Sort [Transpose [Eigensystem[H]]] 

0ut[179]- (£(-0. 660442, 10.-0.8447721, 0.+0.152629I, 0.512134, 0.0279821}}, 
10.998322, (0.-0.00534721, 0.+0.955923I, -0.292115, -0.029187}}, 
11.63842, 10.+0.5336421, 0.+0.2507621, 0.799103, 0.117379, 
(3.0237, 10.-0.03946131, 0.-0.00584989I, -0.117564, 0.992264}}} 


To generate a sorted list of eigenvalues eval and a corresponding list of eigenvectors evec we calculate 


In[180]:- (eval,evec) = Transpose[Sort [Transpose[Eigensystem[H]]]]; 

In[181]:- eval 

Out [181]= (-0. 660442, 0.998322, 1.63842, 3.0237} 

In[182]:- evec 

Out[182]- ((0. -0. 8447721, 0.+0.1526291, 0.512134, 0.0279821}, 
10.-0.00534721, 0.*0.9559231, -0.292115, -0.02918T7], 
10.450.5336421, 0.40.2507621, 0.799103, 0,117379}; 
10.-0.03946131I, 0.-0.00584989I, -0.117564, 0.992264}} 


The trick with calculating only the lowest-energy eigenvalues can be applied to eigenvalue calculations as 
well, since the eigenvectors of -H and H are the same: 


In[183]:- (eval,evec) = Transpose[Sort[Transpose[-Eigensystem[-H, 2, 
Method -> ("Arnoldi", "Criteria" -> "RealPart", MaxIterations => 10^6)]1111; 
In[184]:- eval 
Out [184]= (-0. 660442, 0.998322} 
In[185]:- evec 
Out[185]- ((-0. 73365640. 4187941, 0.132553-0.07566561, 
-0.253889-0.4447711, -0.0138721-0.0243015 I}, 
1-0.000575666-0.005316121, 0.102912+0.9503671, 
-0.290417+0.03144841, -0.0290174+0.0031422T}} 


Notice that these eigenvectors are not the same as those calculated further above! This difference is due 
to arbitrary multiplications of the eigenvectors with phase factors e'?. 
To check that the vectors in evec are ortho-normalized, we calculate the matrix product 


22 CHAPTER 1. WOLFRAM LANGUAGE OVERVIEW 


1n[186]:- Conjugate[evec].Transpose[evec] //Chop //MatrixForm 


and verify that the matrix of scalar products is indeed equal to the unit matrix. 
To check that the vectors in evec are indeed eigenvectors of H, we calculate all matrix elements of H in 
this basis of eigenvectors: 


In[187]:- Conjugate [evec] .H.Transpose[evec] //Chop //MatrixForm 


and verify that the result is a diagonal matrix whose diagonal elements are exactly the eigenvalues eval. 


1.10.5 tensor operations 


https://reference.wolfram.com/language/guide/RearrangingAndRestructuringLists.html 

We have seen above that in the Wolfram language, a vector is a list of numbers (section 1.10.1) and a 
matrix is a list of lists of numbers (section 1.10.2). Higher-rank tensors are correspondingly represented as 
lists of lists of ... of lists of numbers. In this section we describe general tools for working with tensors, 
which extend the methods used for vectors and matrices. See section 2.4.3 for a concrete application of 
higher-rank tensors. We note that the sparse techniques of section 1.10.3 naturally extend to higher-rank 
tensors. 

As an example, we start by defining a list (1.e., a vector) containing 24 elements: 


Inl188]:=v = Range[24] 

Qut[i88]-41,2,23,4, 5,6, 7,8, 9, 10,11,12, 123, 14, 15.46.17, 16; 19, 20,21,22, 25,24) 
1n[189] :- Dimensions [v] 

Out [189]- {24} 


We have chosen the elements in this vector to indicate their position in order to make the following 
transformations easier to understand. 


reshaping 


We reshape the list v into a 2 x 3 x 4 tensor with 


In[i90]:=t = ArrayReshapelv, {2,3,4}] 
out [1907= {{{1,2,3,4},{5,6,7,8},{9,10,11,12}}, 
4413; 14.15.16} (17 ,18, 19,20) 421, 22,23, 24 HE 
In[191]:=Dimensions [t] 
Out[191]1- (2, 3, 4} 


Notice that the order of the elements has not changed; but they are now arranged as a list of lists of lists 
of numbers. Alternatively, we could reshape v into a 2 x 2 x 3 x 2 tensor with 


In[1921:=u = ArrayReshape[v, {2,2,3,2}] 

0ut[192]-4 1141, 2F, 13,41, (5,61, 147,8, 19,104 £11, 121EE, 
(113,144, 115,16+,117,18++,4119,20+,121,227,123, 24) EHI 

In[193] := Dimensions [u] 

Out[193]-(2, 2, 3, 2} 


flattening 


The reverse operation is called flattening: 


In[194]:-Flatten[t] == Flatten[u] == v 
Out [194]- True 


w 
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Tensor flattening can be applied more specifically, without flattening the entire structure into a single list. 
As an example, in u we flatten indices 1&2 together and indices 3&4 together, to find a 4 x 6 matrix that 
we could have calculated directly with ArrayReshape [v, {4,6}]: 


In[195]:- Flatten[u, {{1,2}, {3,4}}] 

out [1951=141,2,3,4,5,6+,17,8,9,10, 11, 127,118, 14,15,16,17,187+, 119,20, 21,239,238, 24+} 
Inl196]:=% == ArrayReshapelv, {4,6}] 

Out [196]= True 


We sometimes use the ArrayFlatten command, which is just a special case of Flatten with fixed 
arguments, flattening indices 1&3 together and indices 2&4 together: 


In{i97]:=ArrayFlatten[u] == Flatten[u, {{1,3}, {2,4}}] 
Out [197]- True 


transposing 


A tensor transposition is a re-ordering of a tensor's indices. For example, 


In[198]:-tt = Transpose[t, {2,3,1}] 

out [198]- (111, 5,953, (13, 17,2111, (12,6, 101,114, 18,22) ] , 
1037,11] 115,15, 28 HF Ate, 5, 121, 116, 20,2013 

1n[199] :- Dimensions [tt] 

Out[199]-(4, 2, 3) 


generates a 4 x 2 x 3-tensor tt, where the first index of t is the second index of tt, the second index of t 
is the third index of tt, and the third index of t is the first index of tt; this order of index shuffling is given 
in the parameter list (2,3, 1) meaning (1%, 274, 34] ¿> (2nd, grd 15t}, More explicitly, 


In[200:- Table[t[[i,j,k]] == tt[[k,i,j]], {1,2}, 13,3), {k,4}] 
out [200]= ( ( (True , True, True, True}, (True, True, True,True], 
{True, True, True, True}},{{Irue, True, True, True}, 
{True, True, True, True}, {True, True, True, True}}} 


contracting 


As a generalization of a scalar product, indices of equal length of a tensor can be contracted. This is the 
operation of summing over an index that appears twice in the list of indices. For example, contracting indices 

For example, we can either contract indices 1&2 in u, or indices 1&4, or indices 2&4, since they are all 
of length 2: 


In(201]:=TensorContract[u, {1, 2}] 
Qut[201]1- (120, 22}, (24, 26}, {28, 30}} 
In(202]:=TensorContract[u, (1, 4}] 
Out[202]-((15, 19, 23}, {27, 31, 35}} 
In[203]: TensorContract[u, {2, 4}] 
0ut[203]-((9, 13, 17), (33, 37, 41}} 


1.10.6 exercises 


Q1.23 Calculate the eigenvalues and eigenvectors of the Pauli matrices: 


https://en.wikipedia.org/wiki/Pauli_matrices 
Are the eigenvectors ortho-normal? If not, find an ortho-normal set. 


Q1.24 After In[203], try to contract indices 3&4 in the tensor u. What went wrong? 
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1.11 complex numbers 


By default all variables in the Wolfram language are assumed to be complex numbers, unless other- 
wise specified. All mathematical functions can take complex numbers as their input, often by analytic 
continuation.? 

The most commonly used functions on complex numbers are Conjugate, Re, Im, Abs, and Arg. When 
applied to numerical arguments they do what we expect: 


In[204] :=Conjugate [2 + 31] 
Out[204]-2 - SI 

In[205]:- Im[O. 7] 

Out [205]- O 


When applied to variable arguments, however, they fail and frustrate the inexperienced user: 


In[206]:- Conjugate [x+1x*y] 

Out [206]=Conjugate[x] - I*Conjugate [y] 
In[207]:= Im[a] 

Out [207]- Im[a] 


This behavior is due to Mathematica not knowing that x, y, and a in these examples are real-valued. There 
are several ways around this, all involving assumptions. The first is to use the ComplexExpand function, 
which assumes that all variables are real: 


In[208]:- Conjugate[x-I*y] //ComplexExpand 
Out (208]=x - Ixy 

In(209]:=Im[a] //ComplexExpand 

Out [209] - O 


The second is to use explicit local assumptions, which may be more specific than assuming that all variables 
are real-valued: 


In[2101:=Assuming[Element[x, Reals] && Element[y, Reals], 
Conjugate[x + I*y] //FullSimplify] 

Out[210]-X - Ix*y 

In[2311]:-Assuming[Element[a, Reals], Im[a] //FullSimplify] 

Out [211]- O 


The third is to use global assumptions (in general, global system variables start with the $ sign): 


In(212]:=$Assumptions = Element[x, Reals] && Element[y, Reals] && Element[a, Reals]; 
In[213]:=Conjugate[xt+I*y] //FullSimplify 

Out[213]-X - Ix*y 

In[2314)]:-Im[a] //FullSimplify 

Out [214]- O 


1.12 units 


https://reference.wolfram.com/language/tutorial/UnitsOverview.html 
The Wolfram language is capable of dealing with units of measure, as required for physical calculations. 
For example, we can make the assignment 


In[215]:; S = Quantity[3, "m"]; 


8See https://en.wikipedia.org/wiki/Analytic continuation. 
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to specify that s should be three meters. A large number of units can be used, as well as physical constants: 


In[2161:=kB = Quantity["BoltzmannConstant"] ; 


will define the variable kB to be Boltzmann's constant. Take note that complicated or slightly unusual 
quantities are evaluated through the online service Wolfram Alpha®, which means that you need an internet 
connection in order to evaluate them. For this and other reasons, unit calculations are very slow and to be 
avoided whenever possible. 

If you are unsure whether your expression has been interpreted correctly, the full internal form 


1n[217] := FullForm [kB] 
Out [217]= Quantity [1, "BoltzmannConstant"] 


usually helps. Alternatively, converting to SI units can often clarify a definition: 


1n[218] :- Uni tConvert [kB] 
out (218]= Quant ity [1.38065*10^-23, "kg m^2/(s^2 K)"] 


In principle, we can use this mechanism to do all the calculations in this lecture with units; however, for 
the sake of generality (as many other computer programs cannot deal with units) when we do numerical 
calculations, we will convert every quantity into dimensionless form in what follows. 

In order to eliminate units from a calculation, we must determine a set of units in which to express the 
relevant quantities. This means that every physical quantity x is expressed as the product of a unit and a 
dimensionless multiplier. The actual calculations are performed only with the dimensionless multipliers. A 
smart choice of units can help in implementing a problem. 

As an example we calculate the acceleration of an A380 airplane (m — 560t) due to its jet engines 
(F=4x311kN). The easiest way is to use the Wolfram language's built-in unit processing: 


In[219]:=F = Quantity[4*311, "kN"]; 
In[2201:=m = Quantity[560, "t"]; 
In[221]:=a = UnitConvert[F/m, "m/s^2"] //N 


Out [221]= 2. 22143 m/s^2 


This method is, however, much slower than using purely numerical calculations, and furthermore cannot be 
generalized to matrix and vector algebra. 

Now we do the same calculation with dimensionless multipliers only. For this, we first set up a consistent 
set of units, for example the SI units: 


1n[222]:- ForceUnit = Quantity["Newtons"]; 

In[2231:=MassUnit = Quantity ["Kilograms"]; 
In[224]:=AccelerationUnit = UnitConvert [ForceUnit/MassUnit] 
Out[224]-1 m/s^2 


It is important that these units are consistent with each other, /.e., that the product of the mass and 
acceleration units gives the force unit. The calculation is now effected with a simple numerical division 
a-F/m: 


In[2251:=F = Quantity[4*311, "kN"] / ForceUnit 
Out [225]- 1244000 

In[2261:=m = Quantity[560, "t"] / MassUnit 

Out [226]- 560000 

In[227]:=a = F/m //N 

0ut[227]- 2.22143 


This result of 2.221 43 acceleration units, meaning 2.221 43 m/s2, is the same as Out [221]. 
We can do this type of calculation in any consistent unit system: as a second example, we use the unit 
definitions 
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In[228]:-ForceUnit = Quantity ["KiloNewtons"]; 

1n[229]:- MassUnit = Quantity ["AtomicMassUnit"]; 
In[230]:=AccelerationUnit = UnitConvert [ForceUnit/MassUnit] 
Out (230]=6.022141*10729 m/s^2 


and calculate 


In(231]:=F = Quantity[4*311, "kN"] / ForceUnit 
Out [231]- 1244 

In[2321:=m = Quantity[560, "t"] / MassUnit 

Out [232]= 3. 3723989*10732 

In[233]:;:a = F/m //N 

Out [233]= 3. 6887 7*10^ - 30 


This result is again the same as Out [221] , because 3.688 77 x 107% acceleration units are 3.688 77 x 10-39 x 
6.022141 x 10% m/s?. 

It is not important which unit system we use. In practice, it is often convenient to use a system of units 
that yields dimensionless multipliers that are on the order of unity; but this is not a strict requirement. 


quantum mechanics: states and 
operators 


If you are like most students of quantum mechanics, then you have begun your quantum studies by 
hearing stories about experiments such as Young's double slit,* the Stern-Gerlach spin quantization,? and 
Heisenberg's uncertainty principle.^ Many concepts and analogies are introduced to get an idea of what 
quantum mechanics is about and to begin to develop an intuition for it. Yet there is a large gap between this 
kind of qualitative understanding and being able to solve even the simplest quantum-mechanical problems 
on a computer, essentially because a computer only works with numbers, not with stories, analogies, or 
visualizations. 

The goal of this chapter is to connect the fundamental quantum-mechanical concepts to representations 
that a computer can understand. We develop the tools that will be used in the remaining chapters to 
express and solve interesting quantum-mechanical problems. 


1See https://en.wikipedia.org/wiki/Double-slit experiment. 
?See https://en.wikipedia.org/wiki/Stern-Gerlach, experiment. 
3See https://en.wikipedia.org/wiki/Uncertainty principle. 
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2.1 basis sets and representations 


Quantum-mechanical problems are usually specified in terms of operators and quantum states. The quantum 
states are elements of a Hilbert space; the operators act on such vectors. How can these objects be 
represented on a computer, which only understands numbers but not Hilbert spaces? 

In order to find a computer-representable form of these abstract objects, we assume that we know an 
ortho-normal^ basis (|i) ); of this Hilbert space, with scalar product (i|j) = ójj. In section 2.4 we will talk 
about how to construct such bases. For now we make the assumption that this basis is complete, such 
that 7,11) (/| = 1. We will see in section 2.1.1 how to deal with incomplete basis sets. 

Given any operator A acting on this Hilbert space, we use the completeness relation twice to find 


A=1-A-1= Ena AY nal] =D GAL 1941. (2.1) 
i j er dm 


We define a numerical matrix A with elements Aj; = (i|.A|j) € C to rewrite this as 
Á 2 M Aj [DUN (2.2) 
ij 


The same can be done with a state vector |): using the completeness relation, 


"ae aud 
Wi 


Ij) =1- |p) = Ena JU) = M (iw) |). (2.3) 


and by defining a numerical vector Y with elements y; = (ip) € € the state vector is 


|y) = vill). (2.4) 


Both the matrix A and the vector Y are complex-valued objects which can be represented in any computer 
system. Equation (2.2) and Equation (2.4) serve to convert between Hilbert-space representations and 
number-based (matrix/vector-based) representations. These equations are at the center of what it means 
to find a computer representation of a quantum-mechanical problem. 


2.1.1 incomplete basis sets 


For infinite-dimensional Hilbert spaces we must usually content ourselves with finite basis sets that 
approximate the low-energy physics (or, more generally, the physically relevant dynamics) of the problem. 
In practice this means that an orthonormal basis set may not be complete, 


nl - P. (2.5) 


which is the projector onto that subspace of the full Hilbert space which the basis is capable of describing. 
We denote Q = 1 — P as the complement of this projector: Q is the projector onto the remainder of the 
Hilbert space that is left out of this truncated description. The equivalent of Equation (2.1) is then 


A=1-A4-1=(P+Q)-A-(P+Q)=P-A-P+P-A-04Q-A-P+0-A-G 
= 240 104 + P-AQ+Q-AP + — QAO (2.6) 


neglected coupling to (high-energy) part neglected (high-energy) part 


within described subspace 


In the same way, the equivalent of Equation (2.3) is 


ly) =1-1w)=(P+0)-lw)= wl + Qu) (2.7) 
E neglected (high-energy) part 


within described subspace 


^The following calculations can be extended to situations where the basis is not ortho-normal. For the scope of this lecture 
we are however not interested in this complication. 
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Since Q is the projector onto the neglected subspace, the component QU) of Equation (2.7) is the part 
of the quantum state |y) that is left out of the description in the truncated basis. In specific situations 
we will need to make sure that all terms involving Q in Equation (2.6) and Equation (2.7) can be safely 
neglected. See Equation (4.28) for a problematic example of an operator expressed in a truncated basis. 


variational ground-state calculations 


Calculating the ground state of a Hamiltonian in an incomplete basis set is a special case of the variational 
method.” As we will see for example in section 4.1.7, the variational ground-state energy is always larger than 
the true ground-state energy. When we add more basis functions, the numerically calculated ground-state 
energy decreases monotonically. At the same time, the overlap (scalar product) of the numerically calculated 
ground state with the true ground state monotonically increases to unity. These convergence properties 
often allow us to judge whether or not a chosen computational basis set is sufficiently complete. 


2.1.2 exercises 


Q2.1 We describe a spin-1/2 system in the basis B containing the two states 


teg) = 005 (2) m es (2) 10 
lag) =- sin (2) m +cos (2) 1 (2.8) 


Show that the basis B = {|fe}, Wo p)) is orthonormal. 
Show that the basis B is complete: [fep (the,ol + Wo.) Hool = 1. 
Express the states |f) and ||) as vectors in the basis B. 


Express the Pauli operators ôx, Gy, 07 as matrices in the basis B. 


c PF wn Pe 


Show that |ts.) and No) are eigenvectors of 6(9, p) = Gx sin(8) cos(p) + dy sin(9) sin(q) + 
6, cos(9). What are the eigenvalues? 


Q2.2 The eigenstate basis for the description of the infinite square well of unit width is made up of the 
ortho-normalized functions 


(xin) = bn(x) = v2sin(nrx) (2.9) 
defined on the interval [0, 1], with n € {1,2,3,...}. 


1. Calculate the function P, (x, y) = (x| [Elnan] Ly). 


2. In computer-based calculations we limit the basis set to n € {1,2,3,..., Nmax} for some large 
value of Nmax- Using Mathematica, calculate the function P, (x, y) = x [Done |) (nl] ly) 


(use the Sum function). Make a plot for Nmax = 10 (use the DensityPlot function). 
3. What does the function P represent? 


2.2 time-independent Schródinger equation 
The time-independent Schródinger equation is 
Alp) = Ely). (2.10) 


As in section 2.1 we use a computational basis to express the Hamiltonian operator H and the quantum 
state Y as 


A =} Hi IDU, I) = ov Ii). (2.11) 


5See https://en.wikipedia.org/wiki/Variational method. (quantum mechanics). 
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With these substitutions the Schródinger equation becomes 


» Hj Il Y V «| -E Y Ye J 
AD =2 Ev |£) 


ijk m 


S Hb; li) =D Ede | (2.12) 
ij £ 
Multiplying this equation by (m| from the left, and using the orthonormality of the basis set, gives 
(m| > Hij li) = (ml 2 Ev, |e) 
2 A ¿mio -Ev (mio (m|£) 
ae pe ud 


5 Hmjbj = Elm (2.13) 
7 


In matrix notation this can be written as 


H-p=Ey. (2.14) 


This is the central equation of this lecture. It is the time-independent Schrodinger equation in a form that 
computers can understand, namely an eigenvalue equation in terms of numerical (complex) matrices and 
vectors. 

If you think that there is no difference between Equation (2.10) and Equation (2.14), then | invite 
you to re-read this section as | consider it extremely important for what follows in this course. You can 
think of Equation (2.10) as an abstract relationship between operators and vectors in Hilbert space, while 
Equation (2.14) is a numerical representation of this relationship in a concrete basis set {|/)};. They both 
contain the exact same information (since we converted one to the other in a few lines of mathematics) 
but they are conceptually very different, as one is understandable by a computer and the other is not. 


2.2.1 diagonalization 


The matrix form of Equation (2.14) of the Schródinger equation is an eigenvalue equation as you know 
from linear algebra. Given a matrix of complex numbers H we can find the eigenvalues E; and eigenvectors 
Y; using Mathematica's built-in procedures, as described in section 1.10.4. 


2.2.2 exercises 
Q2.3 Express the spin-1/2 Hamiltonian 
Å = sin(9) cos(q)6, + sin(9) sin(p)ó, + cos(8)8; (2.15) 


in the basis (|f), |1)), and calculate its eigenvalues and eigenvectors. NB: Gx yz are the Pauli 
operators. 


2.3 time-dependent Schródinger equation 


The time-dependent Schródinger equation is 
d m 
hau OD» = CODIGO), (2.16) 


where the Hamiltonian 1 can have an explicit time dependence. This differential equation has the formal 
solution 


p(t) =U(to; t) |i (to)) (2.17) 
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in terms of the propagator 


E A E a 1 E: th E " n t th to " A a 
(wit) =1-5 | dt RC | de f dt RR) us | dey f dts | dts l(t) A(t) (ta) 
to to t to to to 


1 t ti to t3 " m 2 - 
*x] des f dt f dts f AVAAJA) +- (2.18) 
to to to to 


that propagates any state from time tọ to time t. An alternative form is given by the Magnus expansion? 


Y Oto; J (2.19) 


k=1 


Ü (to; t) = exp 


with the contributions 


A t 
A l ^ 
Qi: == f dente) 
to 


OO) 


Qali t) = eus f dm f dts f dts (AC). AC), AEM + (AC), ACE). AEN) 
(2.20) 


This expansion in terms of different-time commutators is often easier to evaluate than Equation (2.18), 
especially when the contributions vanish for k > kmax (see section 2.3.3 for the case kmax = 1). Even if 
higher-order contributions do not vanish entirely, they (usually) decrease in importance much more rapidly 
with increasing k than those of Equation (2.18). Also, even if the Magnus expansion is artificially truncated 
(neglecting higher-order terms), the quantum-mechanical evolution is still unitary; this is not the case for 
Equation (2.18). 

Notice that the exponential in Equation (2.19) haa an operator or a matrix as their argument: in 
Mathematica this matrix exponentiation is done with the MatrixExp function. It does not calculate the 
exponential element-by-element, but instead calculates 


Â A” A A” 
e EN e 2r (2.21) 
n=0 n=0 


2.3.1 time-independent basis 


We express the quantum state again in terms of the chosen basis, which is assumed to be time-independent. 
This leaves the time-dependence in the expansion coefficients, 


H(t) = 2, Hiit) 10 Gl. l(t) = » wt) DA (2.22) 


Inserting these expressions into the time-dependent Schródinger equation (2.16) gives 


ih Vi |i) = | Hi xl | eto) 10 =D) HiCO VICO Li). (2.23) 
i jk £ jk 
Multiplying with (m| from the left: 
ihWm(t) = Y ^ Ame (t) x(t) (2.24) 
k 
or, in matrix notation, 
imp(t) = H(t) - P(t). (2.25) 


Since the matrix H(t) is supposedly known, this equation represents a system of coupled complex differential 
equations for the vector (t), which can be solved on a computer. 


6See https: //en.wikipedia. org/wiki/Magnus_expansion. 
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2.3.2 time-dependent basis: interaction picture 


It can be advantageous to use a time-dependent basis. The most frequently used such basis is given by the 
interaction picture of quantum mechanics, where the Hamiltonian can be split into a time-independent 
principal part Ho and a small time-dependent part Hı: 


H(t) = Ao + Å (t). (2.26) 


Assuming that we can diagonalize Ho, possibly numerically, such that the eigenfunctions satisfy Ho|’) = E;|i), 
we propose the time-dependent basis 


=e"). (2.27) 
If we express any quantum state in this basis as 
Iv(t)) = 2. pi(t) [i(t)) = 2 vi(t)e F/M i), (2.28) 


the time-dependent Schrödinger equation becomes 
Y. [imabi(t) + Epit] A = Y y;(t)e EE; |j) + Y y;(r)e 57 81 (r [j) 
i J J 


mc) — 5 vite "Fa (t) 1) (2.29) 


i 
Multiply by (k| from the left: 


(k 3 zit (eje te = (43 je ho n 
E) (kli) eo 


i 
p 


ij. (t) = $ pe i FO (fs (0) 1). (2.30) 


This is the same matrix/vector evolution expression as Equation (2.25), except that here the Hamiltonian 
matrix elements must be defined as 


Hij(t) = (Ra (t) ye OM. (2.31) 


We see immediately that if the interaction Hamiltonian vanishes [7]; (t) = 0], then the expansion coefficients 
w(t) become time-independent, as expected since they are the coefficients of the eigenfunctions of the 
time-independent Schrödinger equation. 

When a quantum-mechanical system is composed of different parts that have vastly different energy 
scales of their internal evolution Ho, then the use of Equation (2.31) can have great numerical advantages. 
It turns out that the relevant interaction terms Hjj(t) in the interaction picture will have relatively slowly 
evolving phases exp[-i( Ej — E;)t/h], on a time scale given by relative energy differences and not by absolute 
energies; this makes it possible to solve the coupled differential equations of Equation (2.25) numerically 
without using an absurdly small time step. 


2.3.3 special case: KOK) =0 V(t, t’) 


If the Hamiltonian commutes with itself at different times, A(t), *(t')] — 0 V(t, t^), the propagator (2.19) 
of Equation (2.16) can be simplified to 


Ú (to; t) = exp E [ross l (2.32) 


and the corresponding solution of Equation (2.25) is 


$) = eo [-; [ RO (2.33) 


Again, these matrix exponentials are calculated with MatrixExp in Mathematica. 
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2.3.4 special case: time-independent Hamiltonian 


In the special (but common) case where the Hamiltonian is time-independent, the integral in Equation (2.33) 
can be evaluated immediately, and the solution is 


i(t — to) 


Ja) = exp - : 


H - (to). (2.34) 


If we have a specific Hamiltonian matrix H defined, for example the matrix of section 1.10.4, we can 
calculate the propagator U(At) = exp[—iHAt/h] for At = t — to with 


In[234]:- U[At, ] = MatrixExp[-I*H*At/fh] 


The resulting expression for U[At] will in general be very long, and slow to compute. A more efficient 
definition is to matrix-exponentiate a numerical matrix for specific values of the propagation interval At, 
using a delayed assignment: 


In[235]:- U[At, ?NumericQ] := MatrixExp[-I*H*N[At]/h] 


2.3.5 exercises 


Q2.4 Demonstrate that the propagator (2.32) gives a quantum state (2.17) that satisfies Equation (2.16). 


(92.5 Calculate the propagator of the Hamiltonian of Q2.3. 


Q2.6 After In[234] and In[235], check ?U. Which definition of U comes first? Why? 


2.4 basis construction 


In principle, the choice of basis set {|/)}; does not influence the way a computer program like Mathematica 
solves a quantum-mechanical problem. In practice, however, we always need a constructive way to find some 
basis for a given quantum-mechanical problem. A basis that takes the system's Hamiltonian into account 
may give a computationally simpler description; but in complicated systems it is often more important to 
find any way of constructing a usable basis set than finding the perfect one. 


2.4.1 description of a single degree of freedom 


When we describe a single quantum-mechanical degree of freedom, it is often possible to deduce a useful 
basis set from knowledge of the Hilbert space itself. This is what we will be doing in chapter 3 for spin 
systems, where the well-known Dicke basis (|S, Ms)! u.s turns out to be very useful. 

For more complicated degrees of freedom, we can find inspiration for a basis choice from an associated 
Hamiltonian. Such Hamiltonians describing a single degree of freedom are often so simple that they can 
be diagonalized by hand. If this is not the case, real-world Hamiltonians Å can often be decomposed 
like Equation (2.26) into a "simple" part Ho that is time-independent and can be diagonalized easily, and 
a "difficult" part Hy that usually contains complicated interactions and/or time-dependent terms but is 
of smaller magnitude. A natural choice of basis set is the set of eigenstates of Ho, or at least those 
eigenstates below a certain cutoff energy since they will be optimally suited to describe the complete 
low-energy behavior of the degree of freedom in question. This latter point is especially important for 
infinite-dimensional systems (chapter 4), where any computer representation will necessarily truncate the 
dimensionality, as discussed in section 2.1.1. 


examples of basis sets for single degrees of freedom: 
e spin degree of freedom: Dicke states |S, Ms) (see chapter 3) 


e translational degree of freedom: square-well eigenstates, harmonic oscillator eigenstates (see chap- 
ter 4) 
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rotational degree of freedom: spherical harmonics 
e atomic system: hydrogen-like orbitals 
e translation-invariant system: periodic plane waves 


e periodic system (crystal): periodic plane waves on the reciprocal lattice 


2.4.2 description of coupled degrees of freedom 


A broad range of quantum-mechanical systems of interest are governed by Hamiltonians of the form 


N 
H(t) = (xe) + Hine(t), (2.35) 
k=1 

where N individual degrees of freedom are governed by their individual Hamiltonians 779 (t), while their 
interactions are described by Hint(t). This is a situation we will encounter repeatedly as we construct more 
complicated quantum-mechanical problems from simpler parts. A few simple examples are: 


e A set of N interacting particles: the Hamiltonians HW) describe the individual particles, while Hint 
describes their interactions (see section 3.4). 


e A single particle moving in three spatial degrees of freedom: the three Hamiltonians H™) = -ES, 
HN = -£ eS. HO) = E describe the kinetic energy in the three directions, while Mint 


contains the potential energy, which usually couples these three degrees of freedom (see section 4.4). 


e A single particle with internal (spin) and external (motional) degrees of freedom, which are coupled 
through a state-dependent potential in Hint (see chapter 5). 


The existence of individual Hamiltonians 77? assumes that the Hilbert space of the complete system has a 
tensor-product structure 
V-v0gvOg...g yu. (2.36) 


where each Hamiltonian 719 acts only in a single component space, 
Yor) =1%® a 10 Q9 10-29 a £o a qt) Q-Q 105. (2.37) 


Further, if we are able to construct bases A, for all of the component Hilbert spaces V(9, as 
in section 2.4.1, then we can construct a basis for the full Hilbert space V by taking all possible tensor 
products of basis functions: 


là. i, . in) = |) & |) e... & iy). (2.38) 


: : P N 4 : : 
This basis will have [],_, nk elements, which can easily become a very large number for composite systems. 


quantum states 


A product state of the complete system 


IU) = |ui)? 8 (43% e -- «e poa) 0? (2.39) 


can be described in the following way. First, each single-particle state is decomposed in its own basis as in 
Equation (2.4), 


Nk 
Ij) = Y po, (2.40) 
Ik=1 
Inserting these expansions into Equation (2.39) gives the expansion into the basis functions (2.38) of the 
full system, 


m no DN 
A 2),- Ni: 
lp) = o eI v5 lee Y iim 
h=1 ig=1 in=1 
m n Ny 


=LA M YOu? z Ed lioe iy) (2.41) 


í=1 h= in=1 


E 
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In Mathematica, such a state tensor product can be calculated as follows. For example, assume that 1p1 
is a vector containing the expansion of |y)! in its basis, and similarly for p2 and 1p3. The vector w of 
expansion coefficients of the full state |y) = |W,)™ & |y»? e |y) 9) is calculated with 


In[2361:=1p = Flatten[KroneckerProduct[w1, 2, w31] 


See (32.10 for a numerical example. 
More generally, any state can be written as 


n N2 


=) S dus T AA IN); (2.42) 


Elsi in=1 


of which Equation (2.41) is a special case with Y; ;... iy ca s JOY 


operators 
If the Hilbert space has the tensor-product structure of Equation (2.36), then the operators acting on this 
full space are often given as tensor products as well, 


Á- XU e 3 e... m (P, (2.43) 


or as a sum over such products. If every single-particle operator is decomposed in its own basis as in 


Equation (2.2), 
a? = A > at”) |i) yg e, (2.44) 


=L hL 


inserting these expressions into Equation (2.43) gives the expansion into the basis functions (2.38) of the 
full system, 


m m no no DN ON 
(1) y? (1) (2) yo UM y)? (N) 
= 2,2, s Gal lo NE MICI alo. i P» ia, HD Gi 
h=1 j¡=1 h=1 j=1 in=1 jy=1 


m m m m 


23203253203 T a) ato... a | piss.) dl. (2.45) 


h-1]j-16i-1j-1 in=1jy=1 


In Mathematica, such an operator tensor product can be calculated similarly to In[236] above. For 
example, assume that a1 is a matrix containing the expansion of al?) in its basis, and similarly for a2 and 
a3. The matrix A of expansion coefficients of the full operator A= a e ae e ap is calculated with 


In[237]:=A = KroneckerProduct[ai, a2, a3] 


Often we need to construct operators which act only on one of the component spaces, as in Equation (2.37). 
For example, in a 3-composite system the subsystem Hamiltonians A), A‘), and AC) are first expanded to 
the full Hilbert space, 


3:-H1 = KroneckerProduct [h1, 

IdentityMatrix [Dimensions [h2] ] 
IdentityMatrix [Dimensions [h3]]]; 
n(239]:=H2 = KroneckerProduct [IdentityMatrix [Dimensions [h1] ] 
h2, 
IdentityMatrix [Dimensions [h3 
KroneckerProduct [IdentityMatrix [Dimensions [h1 
IdentityMatrix [Dimensions [h2 
h3]; 


B 
N 
w 
Q 
Il 


n [240] := H3 


where IdentityMatrix[Dimensions[h1]] generates a unit matrix of size equal to that of h1. In this way, 
the matrices H1, H2, H3 are of equal size and can be added together, even if h1, h2, h3 all have different 
sizes (expressed in Hilbert spaces of different dimensions): 
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In[241]:;-H = Hi + H2 + H3; 


More generally, any operator can be written as 


nm nm no no 


Ââ=5 5 >>) DY de jas. A UM NT (2.46) 


ij-—1lj-15-1jp-1 IN—1 jm=1 


of which Equation (2.45) is a special case with aj, j, 5.5... iy jy = xi aO... : oe 


2.4.3 reduced density matrices [code] 


In this section we calculate reduced density matrices by partial tracing. We start with the most general 
tripartite case, and then specialize to the more common bipartite case. 

Assume that our quantum-mechanical system is composed of three parts A, B, C, and that its 
Hilbert space is a tensor product of the three associated Hilbert spaces with dimensions da, dp, dc: 
V — V @ VO) & V(O, Similar to Equation (2.46), any state of this system can be written as a density 


matrix 
da dg dc 


Bac — >> NS Y Pisos llar Je, Kc) (A JG. kel, (2.47) 
i/—1jj—1kKk-1 
where we use the basis states |ia, jg, kc) = |i)? & |j) @ |k)O defined in terms of the three basis sets 


of the three component Hilbert spaces. 

We calculate a reduced density matrix 6ac = Treg QAgc, which describes what happens to our knowledge 
of the subsystems A and C when we forget about subsystem B. For example, we could be studying a system 
of three particles, and take an interest in the state of particles A and C after we have lost particle B. This 
reduced density matrix is defined as a partial trace, 


de da dg de 
Pac = 5 UslPascla) = > Vel 5 5 y Pig kit jo lia JB» Kc) (ias Jp» kel | Up) 


j'— j"=1 i,i/—1 j j'=1 k,k'=1 


dg da dg dc dg da dg dc 
= => > 5 5 pi jk, jk Blia, Je, Kc) Ca Je Kc Ug) => y 5 » Dij kir je Op ¡las Kc)] lyla Kel] 


j'—1i-1jJj'—1k,k-1 j'-1lij-1jj-lk,k- 


da dc 
=> 5 n lia, kc) (i. Kel, (2.48) 


iW"=1k,k'=1 | ¡=1 


which makes no reference to subsystem B. It only describes the joint system AC that is left after forgetting 
about subsystem B. 

In Mathematica, we mostly use flattened basis sets, that is, our basis set for the joint Hilbert space of 
subsystems A, B, C is a flat list of length d = dadgdc: 


lla. 1g, 1c), lla 38, 2c)< s |La, 1g, de), La, 2B, 1c), lla, 2B, 265.55 | Ta. 2B. dc), <>. |da, dg, dc) - 
(2.49) 
In section 1.10.5 we have seen how lists and tensors can be re-shaped. As we will see below, these tools 
are used to switch between representations involving indices (i, j, k) (/.e., lists with three indices, rank-three 
tensors) corresponding to Equation (2.47), and lists involving a single flattened-out index corresponding 
more to Equation (2.49). 

In practical calculations, any density matrix pABC of the joint system is given as a d x d matrix whose 
element (u, v) is the prefactor of the contribution |u)(v| with the indices u and v addressing elements 
in the flat list of Equation (2.49). In order to calculate a reduced density matrix, we first reshape this 
d x d density matrix pABC into a rank-six tensor R with dimensions da x dg x dc x da X dg X dc, and with 
elements r; jki ye of Equation (2.47): 


In[2421:=R = ArrayReshape[pABC, {dA,dB,dC,dA,dB,dC}] 
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Next, we contract indices 2 and 5 of R in order to do the partial trace over subsystem B, as is done in 
Equation (2.48) (effectively setting j = j’ and summing over j). We find a rank-4 tensor S with dimensions 
da X dc x da x dc: 


In[243]:=S = TensorContract[R, {2,5}] 


Finally, we flatten out this tensor again (simultaneously combining indices 1&2 and 3&4) to find the 
dadc x dadc reduced density matrix pAC: 


In[244]:=pAC = Flatten[S, (11,2), {3,4}}] 


We assemble all of these steps into a generally usable function: 


In[245]:- rdm[pABC, ?MatrixQ, ídA Integer /; dA >= 1, 
dB Integer /; dB >= 1, 
dC Integer /; dC >= 1)] /; 
Dimensions[pABC] == {dA*dB*dC, dA*dB*dC} :- 
Flatten[TensorContract[ArrayReshape[pABC, {dA,dB,dC,dA,dB,dC}], 42,57], 
111,27, (3,4: 


When our system is in a pure state, QAgc = |W), this procedure can be simplified greatly. This is 
particularly important for large system dimensions, where calculating the full density matrix GAgc may be 
impossible due to memory constraints. For this, we assume that |y) = TA De DE Dix la, Je. Kc), 
and therefore p; jki jke = Dijk Wi » w Again, in Mathematica the coefficients of a state vector ABC are 
a flat list referring to the elements of the flat basis of Equation (2.49), and so we start by constructing a 


rank-3 tensor P with dimensions da X dg x dc, whose elements are exactly the W; j,k, similar to In [242]: 


In[246]:-P = ArrayReshape[WABC, {dA,dB,dC}] 


We transpose this rank-three tensor into a da x dc x dg tensor P1 and a dg x da x dc tensor P2 by changing 
the order of the indices: 


In[2471:=P1 = Transpose[P, 11, 3, 2] 
In[248]:-P2 = Transpose[P, 12, 1, 3}] 


Now we can contract the index je by a dot product, to find a rank-4 tensor Q with dimensions da x dc x da x dc: 


In[249]:;-Q = P1 . Conjugate[P2] 


Finally we flatten Q into the dadc x dAdc reduced density matrix pAC by combining indices 1&2 and 3&4: 


In[250]:-pAC = Flatten[Q, {{1,2}, (3,4) 


We assemble all of these steps into a generally usable function that extends the definition of In [245]: 


In[251]:- rdm hpABC, ?VectorQ, (dA Integer /; dA >= 1, 
dB Integer /; dB >= 1, 
dC Integer /; dC >= 1)] /; 
Length [ ABC] == dA*dB*dC := 
With[{P = ArrayReshape[wABC, {dA,dB,dC}]}, 
Flatten[Transpose[P, {1,3,2}].ConjugateTranspose[P], {{1,2}, {3,4}}]] 


Notice that we have merged the transposition of In[248] and the complex-conjugation of In[249] into a 
single call of the ConjugateTranspose function. 
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bipartite systems 


Consider now the more common case of a bipartite system composed of only two subsystems A and B. We 
can still use the definitions developed above for tripartite (ABC) structures by introducing a trivial third 
subsystem with dimension de = 1. This trivial subsystem will not change anything since it must always 
be in its one and only possible state. Therefore, given a density matrix pAB of the joint system AB, we 
calculate the reduced density matrices of subsystems A and B with 


1 |1n(2521:- pÀ = rdm[pAB, {dA,dB,1}]; 
2 |Inl2531:=pB = rdm[pAB, {1,dA,dB}]; 


respectively, since it is always the middle subsystem of a given list of three subsystems that is eliminated 
through partial tracing. In typical Mathematica fashion, we define a traceout function that traces out the 
first d dimensions if d > O and the last d dimensions if d < 0: 


i | In[2541:=traceout[p_?MatrixQ, d Integer /; d >= 1] /; 
2 Length[p] == Length[Transpose[p]] && Divisible[Length[p], d] := 
3 rdm[p, 11, d, Length[p]/d}] 
In[255]:=traceout[p_?MatrixQ, d Integer /; d <= -1] /; 
Length[p] == Length[Transpose[p]] && Divisible[Length[p], -d] := 
rdm[p, {Length[p]/(-d), -d, 1X] 
In[256]:-traceout [i ?VectorQ, d Integer /; d >= 1] /; Divisible[Length[w], d] := 
rdm[w, 41, d, Length [p] /d}] 
In[257]:- traceout [ip ?VectorQ, d Integer /; d <= -1] /; Divisible[Lengthhp], -d] := 
rdm[p, {Lengthhp]/(-d), -d, 17] 


2.4.4 exercises 
Q2.7 Two particles of mass m are moving in a three-dimensional harmonic potential V(r) = 3mu?r? with 
r= Ax? + y? + 22, and interacting via s-wave scattering Vat = gó*(F, — r2). 
1. Write down the Hamiltonian of this system. 
2. Propose a basis set in which we can describe the quantum mechanics of this system. 
3. Calculate the matrix elements of the Hamiltonian in this basis set. 
(2.8 Calculate y in In [236] without using KroneckerProduct, but using the Table command instead. 


(2.9 Calculate A in In [237] without using KroneckerProduct, but using the Table command instead. 


Q2.10 Given two spin-1/2 particles in states 
Iu)? = 0.81f) — 0.614), Iu)? = o.ei[t) + 0.814), (2.50) 


use the KroneckerProduct function to calculate the joint state |y) = |p) e |), and compare 
the result to a manual calculation. In which order do the coefficients appear in the result of 
KroneckerProduct? 


Q2.11 For the state of Equation (2.50), calculate the reduced density matrices p and pl?) by tracing out 
the other subsystem. Compare them to the density matrices |y)? (| and |y)? (|. What do 
you notice? 


See also (93.19 and Q3.20. 


spin and angular momentum 


In this chapter we put together everything we have studied so far—Mathematica, quantum mechanics, 
computational bases, units—to study simple quantum systems. We start our explorations of quantum 
mechanics with the description of angular momentum. The reason for this choice is that, in contrast to the 
mechanically more intuitive linear motion (chapter 4), rotational motion is described with finite-dimensional 
Hilbert spaces and thus lends itself as a relatively simple starting point. As applications we look at the 
hyperfine structure of alkali atoms, lattice spin models, and quantum circuits. 
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3.1 quantum-mechanical spin and angular momentum operators [code] 


A classical rotational motion is described by its angular momentum, which is a three-dimensional pseu- 
dovector! whose direction indicates the rotation axis and whose length gives the rotational momentum. 
For an isolated system, the angular momentum is conserved and is thus very useful in the description of 
the system's state. 

In quantum mechanics, angular momentum is equally described by a three-dimensional pseudovector 
operator S, with operator elements (in Cartesian coordinates) S= qom 5 S,). The joint eigenstates of 
the squared angular momentum magnitude IS]? =? = $2 s 52 + 82 and of the z-component $, are 
called the Dicke states |S, M), and satisfy 


) =S(S+1) |S, M) (3.1)a 
) =M |S, M) (3.1)b 


D 


1 


For every integer or half-integer value of the angular momentum S € (0, 3, I; 3, 2,...}, there is a set of 
2S + 1 Dicke states |S, M) with M € (-S,-S+1,..., S — 1, S) that form a basis for the description of 
the rotation axis orientation. These states also satisfy the following relationships with respect to the x- 
and y-components of the angular momentum: 


S, M) = /S(S +1) - M(M +1) |S, M +1) raising operator (3.2)a 
S, M) = / S(S4- 1) - M(M — 1) |S, M-— 1) lowering operator (3.2)b 


$+ = S, t£ i$, Cartesian components (3.2)c 


As you know, quantum mechanics is not limited to spins or angular momenta of length S — 1/2. 
In Mathematica we represent these operators in the Dicke basis as follows, with the elements of the 
basis set ordered with decreasing projection quantum number M: 


In[2581:=SpinQ[S_] := IntegerQ[2S] && S>=0 
In[259]:-splus [0] = (103) //SparseArray; 
In(260]:=splus[S_?SpinQ] := splus[S] = 
SparseArray[Band[{1,2}] -> Table[Sqrt[S(S+1)-M(M+1)], 
14,S-1,-5, 10, 128+1,25+17] 
In[2611:=sminus[S_?SpinQ] := Transpose[splus[S]] 
1n[262):- SX [8. ?SpinQ] := sx[S] = (splus[S]+sminus [S])/2 
In[263]:- Sy [S_?SpinQ] := sy[S] (splus [S] -sminus [S] ) / (21) 
In[264]:- sz [S_?SpinQ] sz[S] = SparseArray [Band[{1,1}]->Range[S,-S,-1], {2S+1,2S+1}] 
In [265] := 1d [S_?SpinQ] id[S] IdentityMatrix[2S+1, SparseArray] 


e Notice that we have defined all these matrix representations as sparse matrices (see section 1.10.3), 
which will make larger calculations much more efficient later on. Further, all definitions are memoizing 
(see section 1.6.3) to reduce execution time when they are used repeatedly. 


e The function SpinQ[S] yields True only if 8 is a nonnegative half-integer value and can therefore 
represent a physically valid spin. In general, functions ending in ...Q are questions on the character 
of an argument (see section 1.6.4). 


e [he operator $,, defined with splus[S], contains only one off-diagonal band of non-zero values. 
The SparseArray matrix constructor allows building such banded matrices by simply specifying the 
starting point of the band and a vector with the elements of the nonzero band. 


e [he operator LA defined with sz[S], shows you the ordering of the basis elements since it has the 
projection quantum numbers on the diagonal. 


1See https://en.wikipedia.org/wiki/Pseudovector. 
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The last operator id[S] is the unit operator operating on a spin of length S, and will be used below 
for tensor-product definitions. Note that the IdentityMatrix function usually returns a full matrix, 
which is not suitable for large-scale calculations. By giving it a SparseArray option, it returns a 
sparse identity matrix of desired size. 


e All these matrices can be displayed with, for example, 


In[2600: sx [3/2] //Normal 

2 |O0wt[266]1- (10, Sqrt[31/2, 0, 0}, 
3 isart[3]/2. Q, Li OR, 
à 10, 1. d; Sartlsl 725, 
10, 0, Sgrt[3]/2, OF} 


or, for a more traditional view, 


In[267] := sx [3/2] //MatrixForm 


3.1.1 exercises 
Q3.1 Verify that for S = 1/2 the above Mathematica definitions give the Pauli matrices: Si = 30; for 


¡=X, Y, Z. 


Q3.2 e in Mathematica that for given integer or half-integer S, the three operators (matrices) 
= ($,, Sy, $,} behave like a quantum-mechanical pseudovector of length ||S]] = /S(S + 1): 


E 


. Show that [$,, Sy] = iS,, IB $,] = i$,, and [Sz, $,]] = E 
. Show that $2 + $24 $2 = S(S + 1)1. 


3. What is the largest value of S for which you can do these verifications within one minute (each) 
on your computer? Hint: use the Timing function. 


N 


Q3.3 The operators Seiz are the ee of rotations: a rotation by an angle œ around the axis 


given by a normalized vector ii is done with the operator Rf ala) = exp(-iaii - S). Set fi = 
{sin() cos(p), sin(9) sin(~), cos(9)) and calculate the operator (a) explicitly for S = 0, S = 1/2, 
and S = 1. Check that for a = 0 you find the unit operator. 


3.2 spin-1/2 electron in a dc magnetic field [code] 
As a first example we look at a single spin S = 1/2. We use the basis containing the two states It) 212.1) 


and |J) = 15, =>). which we know to be eigenstates of the operators $? and $,. The matrix expressions of 
the operators relevant for this system are given by the Pauli matrices divided by two, 


1/0 1 1 1/0 -i 1 1/1 0 ll 


In Mathematica we enter these as 


In[2681:=Sx = sx[1/2]; Sy = sy[1/2]; Sz = sz[1/2]; 


m 


using the general definitions of angular momentum operators given in section 3.1. Alternatively, we can 
write 


In[269]: (Sx, Sy, Sz) = (1/2) * Table[PauliMatrix[i], (i,1,3)]; 


42 CHAPTER 3. SPIN AND ANGULAR MOMENTUM 


As a Hamiltonian we use the coupling of this electron spin to an external magnetic field, H = -ü- 


B. The magnetic moment of the electron is ü = UBJeS in terms of its spin S, the Bohr magneton 
Lg = 9.274009 68(20) x 10-24 J/T, and the electron's g-factor ge = —2.0023193043622(15).? The 
Hamiltonian is therefore 


Å = —usge( $, B, + $,By, + $; Bj). (3.4) 


In our chosen matrix representation this Hamiltonian is 


1 B B, —iB 
H = -ugge(SxBx + SyBy + S,B;) = -5H89e ls NT “B ? i (3.5) 
x y z 


In order to implement this Hamiltonian, we first define a system of units. Here we express magnetic field 
strengths in Gauss and energies in MHz times Planck's constant (it is common to express energies in units 
of frequency, where the conversion is sometimes implicitly done via Planck's constant): 


1n[270]:- MagneticFieldUnit = Quantity["Gausses"]; 
In[271)]:-EnergyUnit = Quantity["PlanckConstant"]*Quantity["MHz"] //UnitConvert; 


In this unit system, the Bohr magneton is approximately 1.4 MHz/G: 


In(272]:=pB = Quantity ["BohrMagneton"]/(EnergyUnit/MagneticFieldUnit) //UnitConvert 
Out [272]= 1. 3996245 


We define the electron's g-factor with 


In[2731:=ge = UnitConvert["ElectronGFactor"] 
Out [273]=-2.00231930436 


The Hamiltonian of Equation (3.4) is then 


In[2741:=H[Bx_, By_, Bz_] = -pB * ge * (Sx*Bx+Sy*By+Sz*Bz) 


natural units 


An alternative choice of units, called natural units, is designed to simplify a calculation by making the 
numerical value of the largest possible number of quantities equal to 1. In the present case, this would 
be achieved by relating the field and energy units to each other in such a way that the Bohr magneton 
becomes equal to 1: 


In[275]:- MagneticFieldUnit = Quantity["Gausses"]; 

In[276]:- EnergyUnit = MagneticFieldUnit * Quantity["BohrMagneton"] //UnitConvert; 
In[2771:=pB = Quantity["BohrMagneton"]/(EnergyUnit/MagneticFieldUnit) //UnitConvert 
Out [277]- 1. 0000000 


In this way, calculations can often be simplified substantially because the Hamiltonian effectively becomes 
much simpler than it looks in other unit systems. We will be coming back to this point in future calculations. 


?Notice that the magnetic moment of the electron is anti-parallel to its spin (ge < 0). The reason for this is the electron's 
negative electric charge. When the electron spin is parallel to the magnetic field, the electron's energy is higher than when 
they are anti-parallel. 
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3.2.1 time-independent Schrödinger equation 


The time-independent Schródinger equation for our spin-1/2 problem is, from Equation (2.14), 


1 ELO A 
5 89e Eo +iBy | —B y = Ey (3.6) 


The eigenvalues of the Hamiltonian (in our chosen energy units) and eigenvectors are calculated with: 


In[278] := Eigensystem [H [Bx , By , Bz]] 


As described in section 1.10.4 the output is a list with two entries, the first being a list of eigenvalues 
and the second a list of associated eigenvectors. As long as the Hamiltonian matrix is Hermitian, the 
eigenvalues will all be real-valued; but the eigenvectors can be complex. Since the Hilbert space of this spin 
problem has dimension 2, and the basis contains two vectors, there are necessarily two eigenvalues and 
two associated eigenvectors of length 2. The eigenvalues can be called Ey = +3 up gell Bl. The list of 
eigenvalues is given in the Mathematica output as (E' , E). Notice that these eigenvalues only depend on 
the magnitude of the magnetic field, and not on its direction. This is to be expected: since there is no 
preferred axis in this system, there cannot be any directional dependence. The choice of the basis as the 
eigenstates of the $, operator was entirely arbitrary, and therefore the energy eigenvalues cannot depend 
on the orientation of the magnetic field with respect to this quantization axis. 
The associated eigenvectors are 


-> | ,Bzt|BI 
Ye" 


1}, (3.7) 


which Mathematica returns as a list of lists, (y, y.) Notice that these eigenvectors are not normalized. 


3.2.2 exercises 


Q3.4 Calculate the eigenvalues (in units of J) and eigenvectors (ortho-normalized) of an electron spin in a 
magnetic field of 1 T in the x-direction. 


Q3.5 Set B = B[&,sin(9) cos(p) + &, sin($) sin(q) + ëz cos(9)] and calculate the eigenvalues and nor- 
malized eigenvectors of the electron spin Hamiltonian. 


3.3 coupled spin systems: ?/Rb hyperfine structure [code] 


Ground-state Rubidium-87 atoms consist of a nucleus with spin / — 3/2, a single valence electron (spin 
S — 1/2, orbital angular momentum L = 0, and therefore total spin J = 1/2), and 36 core electrons that 
do not contribute any angular momentum. In a magnetic field along the z-axis, the effective Hamiltonian 
of this system is? 


A = flo + hAnts T- J- ugBz(gifz + 95$2 + g1 Ez), (3.8) 


where h is Planck's constant, ug is the Bohr magneton, Anf = 3.417 341 305 452 145(45) GHz is the 
spin-spin coupling constant in the ground state of "Rb, g; = +0.000 995 141 4(10) is the nuclear g-factor, 
gs = —2.002 319 304 362 2(15) is the electron spin g-factor, and yg, = —0.999 993 69 is the electron orbital 
g-factor. 

The first part Ho of Equation (3.8) contains all electrostatic interactions, core electrons, nuclear 
interactions etc. We will assume that the system is in the ground state of Ho, which means that the valence 
electron is in the 5%S1/2 state and the nucleus is deexcited. This ground state is eight-fold degenerate 
and consists of the four magnetic sublevels of the / = 3/2 nuclear spin, the two sublevels of the S = 1/2 
electronic spin, and the single level of the L = 0 angular momentum. The basis for the description of this 
atom is therefore the tensor product basis of a spin-3/2, a spin- 1/2, and a spin-0.* 

The spin operators acting on this composite system are defined as in section 2.4.2. For example, the 
nuclear-spin operator /, is extended to the composite system by acting trivially on the electron spin and 


3See http://steck.us/alkalidata/rubidium87numbers.pdf. 
^The spin-0 subsystem is trivial and could be left out in principle. It is included here to show the method in a more general 
way. 
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orbital angular momenta, k= D181. The electron-spin operators are defined accordingly, for example 
S, 165,61. The electron orbital angular momentum operators are, for example, Le — 1818 Ly. 
In Mathematica these operators are defined with 


»[279]:- Ix = KroneckerProduct[sx[3/2], id[1/2], ia[0]]; 
n(280]:=Iy = KroneckerProduct[sy[3/2], id[1/2], id[0]]; 
2 = KroneckerProduct [sz[3/2], id[1/2], id[oJ]; 


= KroneckerProduct [id[3/2] 
= KroneckerProduct [id[3/2] 
= KroneckerProduct [id[3/2] 
= KroneckerProduct [id[3/2] 
= KroneckerProduct [id[3/2] 
= KroneckerProduct [id[3/2] 


sx[1/2], id[0] 
sy[1/2], iato] 
sz[1/2], id[0] 
id[142]., as [01 
id[1/2], sy[0] 
id[1£42], 2210] 


In88]:Jx = Sx + Lx; Jy = Sy + Ly; Jz = Sz + Lz; 


The total angular momentum of the ®’Rb atom is F=T+5 


In[2891:=Fx = Ix + JX; Fy = Iy + Jy; Fz= Iz + Jz; 


Before defining the system's Hamiltonian, we declare a system of units. Any system will work here, so we 
stay with units commonly used in atomic physics: magnetic fields are expressed in Gauss, while energies are 
expressed in MHz times Planck's constant. As time unit we choose the microsecond: 


In[2901:=-MagneticFieldUnit = Quantity["Gausses"]; 
In[2911:=EnergyUnit = Quantity["PlanckConstant"] * Quantity ["Megahertz"]; 
In[2921:=TimeUnit = Quantity ["Microseconds"]; 


The numerical values of the Bohr Magneton and the reduced Planck constant in these units are 


In[2931:=pBn = Quantity ["BohrMagneton"]/(EnergyUnit/MagneticFieldUnit) 
Out [293]- 1. 3996245 
In[2941:=fn = Quantity ["ReducedPlanckConstant"]/(EnergyUnit*TimeUnit) 
0ut[294]- 0. 15915494 


Using these definitions we define the hyperfine Hamiltonian with magnetic field in the z-direction as 


In[2951:=Hhf = A(Ix.Jx*Iy.Jy*Iz.Jz) - pB*Bzx*(gl*lz+gS*Sz+gL*Lz) ; 

In[296]:-hfc = {pB -> pBn, fi -> fin, 
A->Quantity["PlanckConstant"] *Quantity [3.417341305452145 , "GHz" ] /EnergyUnit, 
gs -> -2.0023193043622, 
gL -> -0.99999369, 
gl -> +0.0009951414}; 


This yields the Hamiltonian as an 8 x 8 matrix, and we can calculate its eigenvalues and eigenvectors with 


In[297]:-feval, evec} = Eigensystem[Hhf] //FullSimplify; 


We plot the energy eigenvalues with 


In[298]:-Plot [Evaluate [eval /. hfc], {Bz, 0, 3000}, 
Frame -> True, FrameLabel -> ("Bz / G", "E / MHz")] 


N 


w 
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3.3.1 eigenstate analysis 


In this section we analyze the results eval and evec from the Hamiltonian diagonalization above. For 
this we first need to define ortho-normalized eigenvectors since in general we cannot assume evec to be 
ortho-normalized. 

In general we can always define an ortho-normalized eigenvector set with 


1n[299]:-nevec = Orthogonalizelevec] 


The problem with this definition is, however, immediately apparent if you look at the output given by 
Mathematica: since no assumptions on the reality of the variables were made, the orthogonalization is 
done in too much generality and quickly becomes unwieldy. Even using Assuming and ComplexExpand, as 
in section 1.11, does not give satisfactory results. But if we notice that the eigenvectors in evec are all 
purely real-values, and are already orthogonal, then a simple vector-by-vector normalization is sufficient for 
calculating an ortho-normalized eigenvector set: 


In[300]:-nevec = #/Sqrt[#.#] € /@ evec; 
In[301]:=nevec . Transpose[nevec] //FullSimplify 


The fact that 1n[301] finds a unit matrix implies that the vectors in nevec are ortho-normal. 


field-free limit 


In the field-free limit B, = 0 the energy levels are 


In[302]1:- Assuming [A > 0, Limit[eval, Bz -> 0]] 
Out (302]={3A/4, 3A/4, -5A/4, 3A/4, -5A/4, 3A/4, -5A/4, 3A/4} 


We see that the level with energy —2A is three-fold degenerate while the level with energy ŠA is five-fold 
degenerate. This is also visible in the eigenvalue plot above. Considering that we have coupled two spins 
of lengths / = 3 and J = 1, we expect the composite system to have either total spin F — 1 (three 
sublevels) or F — 2 (five sublevels); we can make the tentative assignment that the F — 1 level is at energy 
E, = —2A and the F = 2 level at E; = 2A. 

In order to demonstrate this assignment we express the matrix elements of the operators Ê? and Ê in 


the field-free eigenstates, making sure to normalize these eigenstates before taking the limit Bz — 0: 


In[308]:-nevecO = Assuming[A > 0, Limit[nevec, Bz -> 0]]; 
In[s041:=nevecO . (Fx.Fx+Fy.Fy+Fz.Fz) . Transpose[nevecO] 
In[s051:=nevecO . Fz . Transpose[nevecO] 


Notice that in this calculations we have used the fact that all eigenvectors are real, which may not always be 
the case for other Hamiltonians. We see that the field-free normalized eigenvectors nevecO are eigenvectors 
of both Ê? and F;, and from looking at the eigenvalues we can identify them as 


(I2, 2), |2, —2), |1, 0), [2, 0), |1, 1), |2, 1), |1, —1), [2, -1)} (3.9) 
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in the notation |F, Mg). These labels are often used to identify the energy eigenstates even for small 
B, #0. 


low-field limit 


For small magnetic fields, we series-expand the energy eigenvalues to first order in Bz: 


In[306]:- Assuming[A > 0, Series[eval, {Bz, 0, 1}] //FullSimplify] 


From these low-field terms, in combination with the field-free level assignment, we see that the F — 1 and 
F = 2 levels have effective g-factors of gı = (—gs + 59/)/4 ~ 0.501824 and go = —(—9s — 39/)/4 ~ 
— 0.499 833, respectively, so that their energy eigenvalues follow the form 


Erw. (Bz) = Er(0) — u&Mrgr Bz + O(B2). (3.10) 
These energy shifts due to the magnetic field are called Zeeman shifts. 


high-field limit 


The energy eigenvalues in the high-field limit are infinite; but we can calculate their lowest-order series 
expansions with 


In[307]:- Assuming[gB > 0 && gS < -gI < 0, 
Series[eval, {Bz, Infinity, 0}] //FullSimplify] 


From these expansions we can already identify the states in the eigenvalue plot above. 
In order to calculate the eigenstates in the high-field limit we must again make sure to normalize the 
states before taking the limit Bz => oo:? 


In[308]:=nevecinf = Assuming[pB > O && gS < -gI < O, 
FullSimplify[Limit[nevec, Bz -> Infinity], A > 0]] 
duelsosl= HL, 0, O0, 0,0, 0, 0, OF, 


£5 O, 0, 0, Os > , 108, 
£0, 0, 0, =l; Os E) , DE, 
105 D D. d ; 0, DE 


10, 95 Ls 95 0, , ob, 
£0, 0, Os Uy D. = ; Oh 


0. 0 
o, 0 
js phe GO 
40, =L Oy 0, Oy 0, 0. DE, 
Us Q 
; 05 ls 9 
10; 0, 0, ©, 0, 0, 1, OH 


tea) o du uu Ml el (3.11) 


where we have used the abbreviation |M,, My) = |$, Mi) & 15, Mj). You can verify this assignment by 
looking at the matrix elements of the /; and Jz operators with 


in(309]:=nevecinf . Iz . Transpose[nevecinf] 
In[310):-nevecinf . Jz . Transpose[nevecinf] 


5Note that in 1n [308] we use two stages of assumptions, using the assumption A > 0 only in FullSimplify but not in 
Limit. This is done in order to work around an inconsistency in Mathematica 11.3.0.0, and may be simplified in a future 
edition. 


m 
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3.3.2 "magic" magnetic field 


The energy eigenvalues of the low-field states |1, — 1) and |2, 1) have almost the same first-order magnetic 
field dependence since gı = —9» (see low-field limit above). If we plot their energy difference as a function 
of magnetic field we find an extremal point: 


In[311]:- Plot [eval[[6]] -eva1[[7]]-2A /. hfc, {Bz, 0, 6}] 
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At the "magic" field strength Bg — 3.228 96 G the energy difference is independent of the magnetic field 
(to first order): 


In[312]:- NMinimize [eval[[6]] - eval[[7]] - 2 ^ /. hfc, Bz] 
Out [312]= (-0. 00449737, {Bz -> 3.22896}} 


This is an important discovery for quantum information science with ®’Rb atoms. If we store a qubit in 
the state |%, p) = cos(8/2)|1, —1) + e'* sin(8/2)|2, 1) and tune the magnetic field exactly to the magic 
value, then the experimentally unavoidable magnetic-field fluctuations will not lead to fluctuations of the 
energy difference between the two atomic levels and thus will not lead to qubit decoherence. Very long 
qubit coherence times can be achieved in this way. 

For the present case where |g;| << |gs|, the magic field is approximately B; = ae 


3.3.3 coupling to an oscillating magnetic field 


In this section we study the coupling of a ®’Rb atom to a weak oscillating magnetic field. Such a field 
could be the magnetic part of an electromagnetic wave, whose electric field does not couple to our 
atom in the electronic ground state. This calculation is a template for more general situations where a 
quantum-mechanical system is driven by an oscillating field. 

The ®’Rb hyperfine Hamiltonian in the presence of an oscillating magnetic field is 


A(t) = hAws T- J — ugBz(gifz + gs$z + gi Lz) —cos(wt) x BB” - (gif + gs + gi L) (3.12) 
IMMMMMM»«»«ú4—+11 SS 
Ho —f 


where the static magnetic field is assumed to be in the z direction, as before. Unfortunately, [H(t), H(t’)] = 
IA, Ho] (cos(wt) — cos(wt’)) + 0 in general, so we cannot use the exact solution of Equation (2.33) of 
the time-dependent Schródinger equation. In fact, the time-dependent Schródinger equation of this system 
has no analytic solution at all. In what follows we will calculate approximate solutions. 

Since we have diagonalized the time-independent Hamiltonian Ho already, we use its eigenstates as a 
basis for calculating the effect of the oscillating perturbation H(t). In general, calling (|i)? , the set 
of eigenstates of Ho, with Hol’) = Ejli) for i € {1...8}, we expand the general hyperfine state as in 
Equation (2.28), 


8 
WE) = Y pi(t)e F/I). (3.13) 


i=1 
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The time-dependent Schrödinger equation for the expansion coefficients p,(t) in this interaction picture is 
given in Equation (2.30): for i = 1...8 we have 


imj;(t) = ue EXP cos(wt) (iA) = IS v9 Cn» Ty, (3.14) 


j=1 


where we have replaced cos(wt) = $e! + 3e '"* and defined 
Ty = (ilal) = —Gl|usB" - (i+ gs + g Ò] 1). (3.15) 


From Equation (3.14) we can proceed in various ways: 


Transition matrix elements: The time-independent matrix elements T;; of the perturbation Hamiltonian 
are called the transition matrix elements and describe how the populations of the different eigenstates 
of Ho are coupled through the oscillating field. We calculate them in Mathematica as follows: 


1 |In[813]:HO = A*(Ix.Jx + Iy.Jy + Iz.Jz) - pB*Bz*(gS*Sz + gL*Lz + gI*Iz); 
2 |In[814]:-H1 = -pB*(gS*(Bacx*Sx + Bacy*Sy + Bacz*Sz) 

3 + gI*(Bacx*Ix + Bacy*ly + Bacz*Iz) 

4 + gL*(Bacx*Lx + Bacy*Ly + Bacz*Lz)); 

In(315]:-H[t_] = HO + Hix*Cos[wxt] ; 

s |In[3161:=feval, evec} = Eigensystem[HO] //FullSimplify; 

7 |In[317]:-nevec = Map[#/Sqrt[#.#] &, evec]; 

In[318]:; T = Assuming[A > 0, nevec.H1.Transpose[nevec] //FullSimplify] ; 


Looking at this matrix T we see that not all energy levels are directly coupled by an oscillating 
magnetic field. For example, 715 = 0 indicates that the populations of the states |1) and |2) can 
only be coupled indirectly through other states, but not directly (hint: check T[[1,2]]). 


Numerical solution: Equation (3.14) is a series of linear coupled differential equations, which we write 
down explicitly in Mathematica with 


1 |Inf3191:=deqs = Table[I*f/*Subscript[w,il'[t] == 
2 Sum [Subscript [y, 3] [t] *Exp [-I* (eval [[j]]-eval [[i]]) *t/h] 
3 *Cos[w*t]*T[[i,jll, {j, 8H, {1,8}]; 


Assuming concrete conditions, for example the initial state |y(t = 0)) = |F = 2, Mp = —2) which 
is the second eigenstate nevec[ [21] [see Equation (3.9)], and magnetic fields B, = 3.228 96 G, 
B?* — 100mG, By = B?* = 0, and an ac field angular frequency of w = 2T x 6827.9 MHz, we can 
find the time-dependent state |y(t)) with 


1 |In[s201:=S = NDSolve[Join[deqs /. hfc /.{Bz->3.22896, Bacx->0.1, Bacy->0, Bacz->0, 
2 Q-»2*7:6827.9), 
{Subscript hp, 1] [0] 220, Subscript hp, 2] [0] == 
Subscript [1,3] [0]==0,Subscript hp, 4] [0] 770, 
Subscript hp ,5] [0] 220, Subscript [y, 6] [0] 770, 
6 Subscript hp, 7] [0]==0, Subscript [4,8] [0]==0}], 
7 Table [Subscript l,i] [t] ,{i1,8}], {t, 0, 30}, 
8 MaxStepSize->107(-5), MaxSteps->1077] 


Notice that the maximum step size in this numerical solution is very small (107* time units or 10 ps), 
since it needs to capture the fast oscillations of more than 6.8 GHz. As a result, a large number of 
numerical steps is required, which makes this way of studying the evolution very difficult in practice. 


We plot the resulting populations with 


In[321]:- Plot [Evaluate [Abs [Subscript [4,21 t] /. S[[1]]]72], {t, 0, 30}] 


3.3. COUPLED SPIN SYSTEMS: Y RB HYPERFINE STRUCTURE 49 


1.0 


e 
0 


o 
D 


0.4} 


population | y2(t) |? 


0 5 10 15 20 25 30 
t/ ps 


p 


In[322]:- Plot [Evaluate [Abs [Subscript [4,71 lt] /. SL[1111^2], (t, 0, 307] 
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We see that the population is mostly sloshing between Ho-eigenstates |2) ~ |F = 2, MF = —2) and 
|7) ~ |F = 1, Me = —1) [see Equation (3.9)]. Each population oscillation takes about 8.2 us (the 
Rabi period), and we say that the Rabi frequency is about 120 kHz. 


Rotating-wave approximation: The time-dependent prefactor exp | i (55 w) t Fexp i (55 w) 1 


of Equation (3.14) oscillates very rapidly unless either Fi Fi —ue or EE ae 0, where one of 


its terms changes slowly in time. The rotating-wave approximation (RWA) consists of neglecting all 
rapidly rotating terms in Equation (3.14). Assume that there is a single” pair of states |/) and |j) 
such that E; — E; = fiw, with E; > Ej, while all other states have an energy difference far from fiw. 
The RWA thus consists of simplifying Equation (3.14) to 


Ej—E; 


E 1 . 
; La) Ti = ¿Ut Tiene 


imp¡(t) ~ ETOR 


E¡-Ej 


inj; (t) N TOLE D Jtr. = TOUCA 
ifj. (t) ~ 0 for k E {i,j} (3.16) 


with Tj; = Tj; and the detuning A = w — (E; — Ej)/h. All other terms in Equation (3.14) have been 
neglected because they rotate so fast in time that they “average out” to zero. This approximate 
system of differential equations has the exact solution 


w(t) = en 24t to cos (=) Fi (Guo O) sin ES] 


we) = e^ uo) cos (ZE) -i (Guo) + ot) sn (E) | 
u(t) = WCO) for k ¢ {ij} (3.17) 


SThe following derivation is readily extended to situations where several pairs of states have an energy difference 
approximately equal to fw. In such a case we need to solve a larger system of coupled differential equations. 
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in terms of the generalized Rabi frequency €? = 4/|T;;|2/f? + A?. We can see that the population 
sloshes back and forth (“Rabi oscillation") between the two levels |/) and |j) with angular frequency 
Q, as we had seen numerically above. 


We can verify this solution im Mathematica as follows. First we define 


In[328]:-A = w - (Ei-Ej)/h; 
In[324]: O. = Sqrt[Tij*Tji/h^2 + A^^2]; 


and the solutions 


In[325]:-ipi[t. ] = E^ C-I*A*t/2) * GbiO*Cos [O*t/2] +1* CA/ O*ipi0-Ti j/ (HQ) *pj0) 
*Sin[O*t/2]); 

In[326]:-1pj [t ] = E^CI*A*t/2)*QGpjO*Cos [O*t/2] -I* CA/O»p jO*Tji/ Ch OQ) *pid) 
*Sin[O*t/2]); 


With these definitions, we can check the Schródinger equations (3.16): 


In[327]:-FullSimplify [I*fhapi' [t] == (1/2) * )pj[t] * Exp[-I*A*t]*Tij] 
Out [327]- True 

In[328]:-FullSimplify [I*/»apj' [t] == (1/2) * wilt] * Exp[I*A*t]*Tji] 
Out [328]- True 


as well as the initial conditions 


1n[329] :- ibi [0] 
Out [329] - Api O 
In [330] :- 1p j [0] 
Out [330] -Ap j0 


dressed states: If we insert the RWA solutions, Equation (3.17), into the definition of the general 


hyperfine state, Equation (3.13), and set all coefficients y, = O for k € {i,j}, and then write 
sin(z) = (e? — e^ 7)/(2i) and cos(z) = (e? + e *)/2, we find the state 


h(t) = vi(t)e En) + pee) 


ale QA), T* 
icem "^ [lu (+5) -wezi 0+ [uo (1- $) -wozz] ew) 


" n(Q+A) ) T* 
+30 [ores { [vio ( - 5) OR li) + [vo (: + 5) «woe e). (3.18) 


In order to interpret this state more clearly, we need to expand our view of the problem to include 
the quantized driving field. For this we assume that the driving mode of the field (for example, the 
used mode of the electromagnetic field) in state |n) contains n quanta of vibration (for example, 
photons), and has an energy of E, = nħw. The two states |/) and |j) describing our system, with 
E; — Ej ~ fiw, actually correspond to states in the larger system containing the driving field. In this 
sense, we can say that the state |/, n), with the system in state |/) and the driving field containing 
n quanta, is approximately resonant with the state |j, n + 1), with the system in state |j} and the 
driving field containing n + 1 quanta. A transition from |/) to |j) is actually a transition from |i, n) to 
|j, n +1), where one quantum is added simultaneously to the driving field in order to conserve energy 
(approximately). A transition from |j) to |/) corresponds to the system absorbing one quantum from 
the driving field. 


The energy of the quantized driving field contributes an additional time dependence 


I) = li yer nt i Laie M ME. (3.19) 
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and Equation (3.18) thus becomes 


p(t) = 


ge (eme lo) (: j 3 DRE li, n) 4 [wo (: 3 woz] lin+1 


+30 (eem) o (: 3) | DRE li, n) 4 |ui (: | 5) | woe lin 


1 1 ; 
— == a + A Le (3.20) 


With this substitution, the state consists of two components, called dressed states, 


U 


J= [wo (: y 2) m DRE laa [wo (: " 2) n wo] jn-1. (321 


that are time-invariant apart from their energy (phase) prefactors. These energy prefactors correspond 
to the effective energy of the dressed states in the presence of the oscillating field, 
h(A x Q) 


Ex = Ej | nhu | 2 = Ej | (n | 1)fiu 


A(—A +2) 
23 


(3.22) 


We look at these dressed states in two limits: 


e On resonance (A = 0), we have fi = |T;;|, and the dressed states of Equation (3.21) become 


T* 


Ti] 


| 


2) = [w(0) + vite) li) + Wowo] unn 


T* 
= |w(0)+ i, n — LZ 3.23 
100) (lim zn). (323) 
which are equal mixtures of the original states |/, n) and |j, n +1). They have energies 
1 1 
E+ = E; + nħw + 3l = E; 4- (n+ 1)ħw c 5lTil (3.24) 


in the presence of a resonant ac coupling field: the degeneracy of the levels |i, n) and |j, n+ 1) 
is lifted, and the dressed states are split by Ey — E- = [Tjj]. 


e Far off-resonance (A > +00) we have Q = |A| + Lt. and Equation (3.20) becomes 


TP? 
Ej nfi — a 


i| Ej+(n+1)hw-4 my? 


I(t) ~ e al dd Io n-1. (325) 


(Hint: to verify this, look at the cases A > +00 and A > —oo separately). The energy levels 
3 (2 E E y 

|i, n) and |j, n + 1) are thus shifted by + T , respectively, and there is no population transfer 

between the levels. That is, the dressed states become equal to the original states. Remember 


that we had assumed E; > Ej: 


— For a blue-detuned drive (A — +00), the upper level |i) is lowered in energy by AE = 
while the lower level |j) is raised in energy by AE. 


— For a red-detuned drive (A — —00), the upper level |i) is raised in energy by AE = as 
while the lower level |j) is lowered in energy by AE. 


These shifts are called ac Zeeman shifts in this case, or level shifts more generally. When the 
oscillating field is a light field, level shifts are often called light shifts or ac Stark shifts. 


"The instantaneous energy of a state is defined as E = (H) = m2). For a state |y(t)) = e-'"t|$) the energy is 
= in((t)| S IO) = Mol ea! $e tlg) = hu. 
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3.3.4 exercises 


(3.6 Take two angular momenta, for example l= 3 and J = 5, and calculate the eigenvalues of the 
operators f?, f, I, des F2, and E, where F — F4 J. 


Q3.7 In Q3.6 you have coupled two angular momenta but you have not used any Clebsch—Gordan coefficients. 
Why not? Where do these coefficients appear? 


(23.8 For a spin of a certain length, for example S = 100, take the state |S, S) (a spin pointing in the 
+z direction) and calculate the expectation values (Sy), (Sy), (Sz), ($2) — i^. ($2) — ERE 


($2) — aa Hint: the expectation value of an operator A is (S, S|A|S, S). 


Q3.9 Use In[323] and In[324] to calculate the detuning A and the generalized Rabi frequency Q for the 
87Rb solution of In[320], where the population oscillates between the levels ¡ = 2 and j = 7. What 
is the oscillation period corresponding to Q? Does it match the plots of In[321] and In [322]? 


Q3.10 Do the presented alkali atom calculation for ?9Na: are there any magic field values? 
http://steck.us/alkalidata/sodiumnumbers.pdf 


t£, 


Q3.11 Do the presented alkali atom calculation for 95Rb: are there any magic field values? 
http://steck.us/alkalidata/rubidium85numbers.pdf 


£ 


ield values? 


Q3.12 Do the presented alkali atom calculation for 133 Cs: are there any magic 
http://steck.us/alkalidata/cesiumnumbers. pdf 


Q3.13 Set B = 0 and BY = B(é, + ié,) in the expression for T in In[318]. Which transitions are allowed 
for such circularly-polarized light around the quantization axis? Hint: use Equation (3.9) to identify 
the states. 


Q3.14 Set B = 0 and B = Be, in the expression for T in In[318]. Which transitions are allowed for such 
linearly-polarized light along the quantization axis? Hint: use Equation (3.9) to identify the states. 


3.4 coupled spin systems: Ising model in a transverse field [code] 


We now turn to larger numbers of coupled quantum-mechanical spins. A large class of such coupled spin 
systems can be described with Hamiltonians of the form 


N 
DE (3.26) 


where the 71“) are single-spin Hamiltonians (for example couplings to a magnetic field) and the Ho are 


coupling Hamiltonians between two spins. Direct couplings between three or more spins can usually be 
neglected. 
As an example we study the dimensionless “transverse Ising” Hamiltonian 


N N 
A = Y) - Y Eps (3.27) 
k=1 


acting on a ring of N spin-S systems where the (N + 1)st spin is identified with the first spin. We can read 
off three limits from this Hamiltonian: 


e For b — too the spin-spin coupling Hamiltonian can be neglected, and the ground state will have all 
spins aligned with the +x direction, 


IJ.) = HX), |W-oo) = |-:9*"l. (3.28) 


The system is therefore in a product state for b > +oo, which means that there is no entanglement 
between spins. In the basis of |S, M) Dicke states, Equation (3.1) and Equation (3.2), the single-spin 
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states making up these product states are 


" 2S 
[xy =2 re b o |S, M), (3.29)b 


which are aligned with the x-axis in the sense that S,|+x) = S |--x) and $,J—x) = -S |-x). 


e For b = 0 the Hamiltonian contains only nearest-neighbor ferromagnetic spin-spin couplings 
BUM We know that this Hamiltonian has two degenerate ground states: all spins pointing 
up or all spins pointing down, 


lor) = |d-z) 8", lop) — |- z)?, (3.30) 


where in the Dicke-state representation of Equation (3.1) we have |+z) = |S, +S) and FE =S =S): 
While these two states are product states, for |b| << 1 the perturbing Hamiltonian —5 B 1 S09 is 
2 


, Which are not product states. The exact ground state dor 0<b<l 
lWor)—|Po.) 
Cm s 


diagonal in the states 


Bos pe and for —1 « b < O it is close to 


entangled states ("Schródinger cat states"). 


is close to These are both maximally 


Now we calculate the ground state |1/5) as a function of the parameter b, and compare the results to the 
above asymptotic limits. 


3.4.1 basis set 


The natural basis set for describing a set of N coupled spins is the tensor-product basis (see section 2.4.2). 
In this basis, the spin operators $0, acting only on spin k are defined as having a trivial action on all 
other spins, for example 


S 15 1@1@---@185,818---@1. (3.31) 
— SS 
(k—1) (N—k) 


In Mathematica such single-spin-S operators acting on spin K out of a set of N spins are defined as follows. 
First we define the operator acting as 4 = a on the k^ spin out of a set of n spins, and trivially on all 
others: 


In[331]:- Op[S, ?SpinQ, n Integer, k Integer, a ?MatrixQ] /; 
1<=k<=n && Dimensions[a] == (2841,2841) := 
KroneckerProduct [IdentityMatrix[(28*1)^(k-1), SparseArray], 
a, 
IdentityMatrix[(28*1)^(n-k), SparseArray]] 


Next, we specialize this to d= Sx, Sy, Sz: 


n(332]:=sx[S_?SpinQ, n Integer, k_Integer] /; 1<=k<=n : 
n(333]:=sy[S_?SpinQ, n Integer, k_Integer] /; 1<=k<=n : 
n(334]:=sz[S_?SpinQ, n Integer, k_Integer] /; 1<=k<=n : 


ep[S, a, k, sx[8]] 
op[S, à, k, sy[8S]] 
opib; à, k, sz[8]] 


Notice that we have used n = N because the symbol N is already used internally in Mathematica. 
From these we assemble the Hamiltonian: 


n(335]:=H[S_?SpinQ, n Integer/;n»-3, b ] := -b/2*Sum[sx[S, n, k], fk, n}] - 
Sum[sz[S, n, kl.sz[S, n, Mod[k*1,n,1]], {k, n) 


The modulus Mod [k*1,n,1] represents the periodicity of the spin ring and ensures that the index remains 
within 1... N (i.e., a modulus with offset 1). 
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3.4.2 asymptotic ground states 


The asymptotic ground states 


single-spin states with 


for b = 0 and b > +oo mentioned above are all product states of the form 
lw) = |0)9" where |0) is the state of a single spin. We form an N-particle tensor product state of such 


Flatten[Kronec 


In[336]:- productstate[O0 ?VectorQ, 1] = 0; 
In[337] := productstate[O0 ?VectorQ, n Integer/;n»-2] :- 


kerProduct 00 Table[0, nl] 


in accordance with In[236]; notice that the case N — 1 requires special attention. 
The particular single-spin states |+x), |-x), |+Z), |-z) we will be using are 


In [338] :- xup [S_?SpinQ] 
1n[339] := xdn [S_?SpinQ] 
In[340] := zup [S_?SpinQ] 
1n(341] :=zdn[S_?SpinQ] 


2^ (-S) *Table[Sqrt [Binomial [2S ,M+S]] ,{M,S,-S,-1}] 


27 (-S)*Table [(-1)7 (M+8)*Sqrt [Binomial [2S,M+S]], {M,S,-S,-1}] 


SparseArray[1 -> 1, 2S+1] 
SparseArray[-1 -> 1, 2S+1] 


We can check that these are correct with 


].xup[$] 


== S*xup[S], (S8, 0, 4, 1/2)] 

, Irue, True, True, True, True, True) 
== -S*xdn[S], {S, 0, 4, 1/23] 

, True, True, True, True, True, True} 


] == S*zup[S], (8, 0, 4, 1/21] 

, True, True, True, True, True, True) 
] == -S*zdn[S], {S, 0, 4, 1/23] 

, True, True, True, True, True, True} 


From these we construct the 


product states 


In[346]1:=a11xup[S_?SpinQ,n 
In[s471:=a11xdn[S_?SpinQ,n 
:=allzup[S_?SpinQ,n 
In[349]:- a]1zdn [8. ?*SpinQ,n 


In[34 


_Integer/;n>=1] productstate[xup[S] ,n] 
_Integer/;n>=1] := productstate[xdn[S] ,n] 
_Integer/;n>=1] productstate[zup[S] ,n] 
_Integer/;n>=1] productstate[zdn[S] ,n] 


3.4.3 Hamiltonian diagonalization 


We find the m lowest-energy eigenstates of this Hamiltonian with the procedures described in section 1.10.4: 


for example, with S = 1/2 and N = 20,° 


In[350]:- With[(S = 1/2, n 
(* Hamiltonian 
h[b_] = H[S, n, 
(* two degenera 
gs0up = allzup[ 
gsOdn = allzdn[ 
(* ground state 
gsplusinf - all 
(* ground state 


gsminusinf = al 
(* numerically 
Clear [gs] ; 

gs[b_?NumericQ, 


= 20}, 

*) 

bl; 

te ground states for b=0 *) 
Ss aj: 

Sd 

for b=+Infinity *) 

xup[S, nl; 

for b--Infinity *) 

1xdn[S, n]; 


calculate lowest m eigenstates *) 


m Integer /; m»-1] := gs[b, m] = -Eigensystem[-h[N[b]], m, 


8The attached Mathematica code uses N = 14 instead, since calculations with N = 20 take a long time. 
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14 Method -> {"Arnoldi", "Criteria" -> "RealPart", MaxIterations -» 1076] // 
15 Transpose //Sort //Transpose; 
1 ] 

Comments: 


e gsOup = |Wor) and gsOdn = |y) are the exact degenerate ground states for b = 0; gsplusinf = 
lWsoo) and gsminusinf = |w_,,) are the exact nondegenerate ground states for b = too. 


e The function gs, which calculates the m lowest-lying eigenstates of the Hamiltonian, remembers its 
calculated values (see section 1.6.3): this is important here because such eigenstate calculations can 
take a long time when n is large. 


e [he function gs numerically calculates the eigenvalues using h[N[b]] as a Hamiltonian, which ensures 
that the Hamiltonian contains floating-point machine-precision numbers instead of exact numbers in 
case b is given as an exact number. Calculating the eigenvalues and eigenvectors of a matrix of exact 
numbers takes extremely long (please try: on line 13 of In[350] replace -Eigensystem[-h[N[b]] , 

... with -Eigensystem[-h[b], ... and compare the run time of gs[1, 2] with that of gs[1.0, 

21.). 


e The operations //Transpose //Sort //Transpose on line 15 of In[350] ensure that the eigen- 
values (and associated eigenvectors) are sorted in ascending energy order (see 1n [180] ). 


e When the ground state is degenerate, which happens here for b ~ 0, the Arnoldi algorithm has some 
difficulty finding the correct degeneracy. This means that gs [0,2] may return two non-degenerate 
eigenstates instead of the (correct) two degenerate ground states. This is a well-known problem that 
can be circumvented by calculating more eigenstates. 


e A problem involving N spin-S systems leads to matrices of size (2S + 1)" x (2S + 1)". This scaling 
quickly becomes very problematic (even if we use sparse matrices) and is at the center of why quantum 
mechanics is difficult. Imagine a system composed of N — 1000 spins S — 1/2: its state vector is a 
list of 21000 = 1.07 x 102°! complex numbers! Comparing this to the fact that there are only about 
10% particles in the universe, we conclude that such a state vector could never be written down and 
therefore the Hilbert space method of quantum mechanics we are using here is fundamentally flawed. 
But as this is an introductory course, we will stick to this classical matrix-mechanics formalism and 
let the computer bear the weight of its complexity. Keep in mind, though, that this is not a viable 
strategy for large systems, as each doubling of computer capacity only allows us to add a single spin 
to the system, which, using Moore's law, allows us to add one spin every two years.? 


There are alternative formulations of quantum mechanics, notably the path-integral formalism, which 
partly circumvent this problem; but the computational difficulty is not eliminated, it is merely shifted. 
Modern developments such as tensor networks? try to limit the accessible Hilbert space by restricting 
calculations to a subspace where the entanglement between particles is bounded. This makes 
sense since almost all states of the huge Hilbert space are so complex and carry such complicated 
quantum-mechanical entanglement that (i) they would be extremely difficult to generate with realistic 
Hamiltonians, and (ii) they would decohere within very short time. 


3.4.4 analysis of the ground state 


energy gap 


Much of the behavior of our Ising spin chain can be seen in a plot of the energy gap, which is the energy 
difference between the ground state and the first excited state. With m — 2 we calculate the two lowest-lying 
energy levels and plot their energy difference as a function of the parameter b: 


? Moore's law is the observation that over the history of computing hardware, the number of transistors on integrated 
circuits doubles approximately every two years. From https://en.wikipedia.org/wiki/Moore?s law. 
10Matrix product states and tensor networks: https://en.wikipedia.org/wiki/Matrix product state. 
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In(351]:=With[{bmax = 3, db = 1/64, m = 2}, 
ListLinePlot[Table[(b, gs[b,m] [[1,2]]-gs[b,m] [[1,1]]}, 
{b, -bmax, bmax, db}]]] 


Notice how the fact that the gs function remembers its own results speeds up this calculation by a factor 
of 2 (see section 1.6.3). 


Even in this small 20-spin simulation we can see that this gap is approximately 


0 if |b] < 1, 
E- Ep & 3.32 
D ia if |b| > 1. (3.32) 
This observation of a qualitative change in the excitation gap suggests that at b = +1 the system undergoes 


a quantum phase transition (i.e., a phase transition induced by quantum fluctuations instead of thermal 
fluctuations). We note that the gap of Equation (3.32) is independent of the particle number N and is 
therefore a global property of the Ising spin ring, not a property of each individual spin (in which case it 
would scale with N). 


overlap with asymptotic states 


Once a ground state |1/5) has been calculated, we compute its overlap with the asymptotically known states 
using scalar products. Notice that for b = O we calculate the scalar products with the states Lt as 
they are the approximate ground states for |b| << 1. 


In[352]:-With[(bmax = 3, db = 1/64, m = 2), 
ListLinePlot[ 
Table[{{b, Abs[gsminusinf.gs[b,m] [[2, 111] ^27, 

(b, Abs[gsplusinf.gs[b, m] [[2,1]]]~2}, 

(b, Abs[(CCgsOup-gsOdn) /Sqrt [2]) . gs [b,m] [[2, 1111727, 

(b, Abs[(CCgsOup*gsOdn) /Sqrt [2]) . gs [b,m] [[2, 1111727, 

(b, Abs[(CgsOup-gsOdn) /Sqrt [2]) .gs[b,m] [[2, 111172 + 
Abs [CCgsOup*gsOdn) /Sqrt [2]) -gs [bm] [[2, 11117237, 

(b, -bmax, bmax, db}] //Transpose]] 
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1.0 


Observations: 
e The overlap |(V/5|V 4.) |? (red) approaches 1 as b + —oo. 


e The overlap |(s/5|V s.) |? (green) approaches 1 as b — +00. 


2 
e The overlap | (wp, MP (cyan) is mostly negligible. 


2 
(orange) approaches 1 as b > 0. 


e The overlap | (jp E 


2 


2 
e The sum of these last two, | (pp 7792 + [quy] llo = (us uo? + polo) (thin 
black), approaches 1 as b — 0 and is less prone to numerical noise. 


e |f you redo this calculation with an odd number of spins, you may find different overlaps with the 
Hor) os) asymptotic states. Their sum, however, drawn in black, should be insensitive to the parity 
of N. 


e For |b| S 0.2 the excitation gap (see above) is so small that the calculated ground-state eigenvector 
is no longer truly the ground state but becomes mixed with the first excited state due to numerical 
inaccuracies. This leads to the jumps in the orange and cyan curves (notice, however, that their sum, 
shown in black, is stable). If you redo this calculation with larger values for m, you may get better 
results. 


magnetization 


Studying the ground state coefficients list directly is of limited use because of the large amount of information 
contained in its numerical representation. We gain more insight by studying specific observables, for example 
the magnetizations (S00), (S09 and (Se). We add the following definition to the With[] clause in 
In[350]: 


(* spin components expectation values *) 
Clear [nx , my , mz] ; 
mx[b_?NumericQ, m Integer /; m >= 1, k Integer] :- 


mx[b, m, k] = With[(g = gs[b,m] [[2, 1117, 
Re[Conjugate[g]l.(sx[S, n, Mod[k, n, 111.g)11; 
my[b_?NumericQ, m Integer /; m >= 1, k Integer] :- 


my[b, m, k] = With[{g = gs[b,m] [[2, 11], 
Re[Conjugate[g]l.(sy[S, n, Mod[k, n, 111.g)11; 
mz[b ?NumericQ, m Integer /; m >= 1, k Integer] :- 


mz[b, m, k] = With[{g = gs[b,m] [[2, 1117, 
Re[Conjugate[gl.(sz[S, n, Mod[k, n, 1]].g)]]; 
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In our transverse Ising model only the x-component of the magnetization is nonzero. Due to the translational 
symmetry of the system we can look at the magnetization of any spin, for example the first one (k = 1): 
mx(b) (blue) and mz(b) (orange, non-zero due to numerical inaccuracies) 


ry T——1——-—-— 


We see that in the phases of large |b|, the spins are almost entirely polarized, while in the phase |b| < 1 the 
x-magnetization is roughly proportional to b. 


spin-spin fluctuation correlations 


Quantum-mechanical spins always fluctuate around their mean direction. In the example of (13.8, the state 
|S, S) points on average along the +z direction in the sense that (S) = (S, S|S|S, S) = (0,0, S}; but it 
fluctuates away from this axis as ($2) — (52) = S/2. 

By introducing the fluctuation operator 65 = §— (S), we can interpret spin fluctuations through 
the expectation values (65) = {0, 0, 0} (fluctuations always average to zero) and ((89)?) = (65 - 6S) = 
(SS) — (S)- (S) = S(S +1) —||(S)||2. Since the spin magnetization has length 0 < ||(S)|| € S, these 
fluctuations satisfy S < ((8$)?) < S(S +1): they are positive for every spin state. 

When two (or more) spins are present, their quantum-mechanical fluctuations can become correlated. 
We quantify such spin-spin fluctuation correlations between two spins k and k’ with the measure 

alk) a(k) alk) a() a(k) a(k’) 
Cy =(08 S )=(S -S )-(S ):(S ), (3.33) 

which has the form of a statistical covariance.'! For any spin length S (assuming S9 = SUD), the first 
term of Equation (3.33) can be written as 


. " x: ^ * alk’). 5 . " 
gg) E +8 yee). ON Eha (334) 


which allows us to predict its expectation value as a function of the total-spin quantum number describing the 
alk) aW) 
two spins-S. As this quantum number can be anywhere between 0 and 25, we have 0 € (S +S 5 < 


25(2S +1). This expectation value is not restricted to integer values. As a result we make the following 
observations: 


e —S(S +1) € Cy X S?: spin fluctuations can be correlated (Ck w > 0), anti-correlated (Ck w < 0), 
or uncorrelated (Cx wœ = 0). 


e The strongest correlations Ck w = S? are found when the two spins-S form a joint spin-2S and at 
a(k) ak) 
the same time are unaligned ((S_ )-(S )=0). 


e The strongest anti-correlations Cy, = —S(S +1) are found when the two spins-S form a joint spin-0 
ak) a(k’) 
(i.e., a spin-singlet). In this case, the magnetizations always vanish: (S }=(S ) = {0,0,0}. 


11See https://en.wikipedia.org/wiki/Covariance. 
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For the specific case S — 1/2, which we use in the present calculations, two spins can form a joint singlet 
a) aW) alk) ak) 
(total spin 0; ((S +5 )*) = 0), a joint triplet (total spin 1; ((S +5 )*) = 2), or a mixture of 
alk) aW) 
these (0 < (S +5 )*) < 2), and the correlation is restricted to the values -i < Cy < +3 for all 


states. Specific cases are: 


[149 H1) 


e In the pure joint singlet state the correlation is precisely Ck w = -$. A fluctuation of one 
spin implies a counter-fluctuation of the other in order to keep them anti-aligned and in a spin-O joint 
state. Remember that the spin monogamy theorem states that if spins k and k’ form a joint singlet, 
then both must be uncorrelated with all other spins in the system. 


e In a pure joint triplet state, i.e., any mixture of the states |11), J), and ———. the correlation is 


0€ Cie X +}. A fluctuation of one spin implies a similar fluctuation of the other in order to keep 
them aligned and in a spin-1 joint state. 

CINES) 
pu je 


e [he maximum correlation Ck w = 4i is reached for unaligned triplet states, /.e., when (S 
; IMD MMN) I +H) 
0. Examples include the states va va and ums 


e In the fully parallel triplet states |t1) and |JJ), the magnetizations are aligned but their fluctuations 
s ak") alk) a) 
are uncorrelated: Cy, = 0, and hence (S -S )=(S ) (S ). 


In order to estimate these spin fluctuation correlations, we add the following definition to the With[] clause 
in In[350]: 


(* spin-spin correlation operator *) 
Clear [Cop] ; 
Cop[k1, Integer, k2 Integer] := Cop[k1, k2] = 
With[{q1 = Mod[k1,n,1], q2 = Mod[k2,n,1]}, 
a&x[S$,n,g1].8x[2,n,q02] + sy[5,n,91] .sy[8,n,92] 
+ ezm[S,n,011.52[3,n,9211; 
(* spin-spin correlations *) 
Clear [c]; 
c [b. ?NumericQ,m Integer/;m»-1,1k1 Integer,k2 Integer]] := 
c[b,m, (k1,k2)] = With[{g = gs[b,m] [[2,1]]}, 
Re[Conjugate[g] . (Cop[k1,k2] .g)]-(mx[b,m,k1] *mx[b,m,k2] 
*my [b,m,k1]*my [b,m, k2] *mz[b,m, k1] *mz[b,m, k2])] ; 


Since our spin ring is translationally invariant, we can simply plot Cs = C145: for N = 20 and ó = 1...10 
(top to bottom), 


0.25 
0.20 
0.15} 


Cs 


0.10! 
0.05 | 


0.00 
-3 


Observations: 
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e The spin fluctuations are maximally correlated (C = +1) for b = 0, in the ferromagnetic phase. 
They are all either pointing up or pointing down, so every spin is correlated with every other spin; 
keep in mind that the magnetization vanishes at the same time (page 58). It is only the spin=spin 
interactions that correlate the spins' directions and therefore their fluctuations. 


e The spin fluctuations are uncorrelated (C — 0) for b > +oo, in the paramagnetic phases. They are 
all pointing in the +x direction for b >> 1 or in the —x direction for b «& —1, but they are doing so in 
an independent way and would keep pointing in that direction even if the spin-spin interactions were 
switched off. This means that the fluctuations of the spins' directions are uncorrelated. 


entropy of entanglement 


We know now that in the limits b > -too the spins are polarized (magnetized) but their fluctuations are 
uncorrelated, while close to b — 0 they are unpolarized (unmagnetized) but their fluctuations are maximally 
correlated. Here we quantify these correlations with the entropy of entanglement, which measures the 
entanglement of a single spin with the rest of the spin chain. 

In a system composed of two subsystems A and B, the entropy of entanglement is defined as the von 
Neumann entropy of the reduced density matrix (see section 2.4.3), 


Sas = — Tr (ĝa logs Pa) = — XL Aj logs X; (3.35) 
D 


where the A; are the eigenvalues of fa (or of 6g; the result is the same). Care must be taken with the case 
Àj = 0: we find limao Alog, A = 0. For this we define the function 


1n[353]:- S [0]O.] = 0; 
In[354:-S[x ] = -x*Log[2, x]; 


that uses Mathematica's pattern matching to separate out the special case x — 0. Note that we use an 
alternative pattern!? 0|0. that matches both an analytic zero O and a numeric zero 0., which Mathematica 
distinguishes carefully. 1° 

We define the entropy of entanglement of the first spin with the rest of the spin ring using the definition 
of In [257], tracing out the last (2S + 1)'V-! degrees of freedom and leaving only the first 2S + 1 degrees 
of freedom of the first spin: 


In[355]:- EE [S_?SpinQ, w_] := 
Total[s /@ Re[Eigenvalues[traceout lip, -Length[w]/(2841)111] 


Observations: 


e Entanglement entropies of the known asymptotic ground states: 


n[356]:=EE[1/2, (gsOuptgsOdn) /Sqrt [21] 
2 | Out(356]=1 
n(357]:=EE[1/2, (gsOup-gsOdn) /Sqrt [2]] 
Out [357]= 1 
n[358]:-EE[1/2, gsplusinf] 
6 | Out [3581=0 
7 |In[859]:-EE(1/2, gsminusinf] 
3 | Out [359]- O 


Entanglement entropy as a function of b: again the calculation is numerically difficult around b + 0 
because of the quasi-degeneracy. 


12See https://reference.wolfram.com/language/tutorial/PatternsInvolvingAlternatives.html. 
13Experiment: 0==0. yields True (testing for semantic identity), whereas 0===0. yields False (testing for symbolic identity). 
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In[360]:- With [(bmax = 3, db = 1/64, m = 2}, 
2 ListLinePlot[Table[{b, EE[1/2, gs[b,m] [[2,1]117, 
3 {b, -bmax, bmax, db)], PlotRange -> 10, 1}]] 
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Notice that the quantum phase transitions at b = +1 are not visible in this plot. 


3.4.5 exercises 


Q3.15 For S = 1/2, what is the largest value of N for which you can calculate the ground state of the 
transverse Ising model at the critical point b = 1? 


Q3.16 Study the transverse Ising model with S = 1: 


1. At which values of b do you find quantum phase transitions? 


2. Characterize the ground state in terms of magnetization, spin-spin correlations, and entanglement 
entropy. 


Q3.17 Study the transverse XY model for S = 1/2: 


N N 
A= —2 50 ES) (3.36) 


k=1 k=1 


1. Guess the shape of the ground states for b + oo [notice that the first term in the Hamiltonian 
of Equation (3.36) is in the z-direction!] and compare to the numerical calculations. 


2. At which values of b do you find quantum phase transitions? 


3. Characterize the ground state in terms of magnetization, spin-spin correlations, and entanglement 
entropy. 


Q3.18 Study the Heisenberg model for S = 1/2: 


.$ (3.37) 


1. Guess the shape of the ground states for b + oo [notice that the first term in the Hamiltonian 
of Equation (3.37) is in the z-direction!] and compare to the numerical calculations. 


2. What is the ground-state degeneracy for b — 0? 
3. At which values of b do you find quantum phase transitions? 


4. Characterize the ground state in terms of magnetization, spin=spin correlations, and entanglement 
entropy. 
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Q3.19 Consider two spin-1/2 particles in the triplet state |y) = |tt). Subsystem A is the first spin, and 
subsystem B is the second spin. 


1. What is the density matrix Pag of this system? 


2. What is the reduced density matrix ĝa of subsystem A (the first spin)? Is this a pure state? If 
yes, what state? 


3. What is the reduced density matrix 6g of subsystem B (the second spin)? Is this a pure state? 
If yes, what state? 


4. Calculate the von Neumann entropies of Pag, Pa, and fg. 


Q3.20 Consider two spin-1/2 particles in the singlet state |y) = A, Subsystem A is the first spin, and 
subsystem B is the second spin. 


1. What is the density matrix Pag of this system? 


2. What is the reduced density matrix 6,4 of subsystem A (the first spin)? Is this a pure state? If 
yes, what state? 


3. What is the reduced density matrix 6g of subsystem B (the second spin)? Is this a pure state? 
If yes, what state? 


4. Calculate the von Neumann entropies of Pag, Pa, and fg. 


3.5 coupled spin systems: quantum circuits [code] 


The computational structure developed so far in this chapter can be used to simulate quantum circuits, 
such as they are used to run quantum algorithms leading all the way to quantum computers. In its simplest 
form, a quantum circuit contains a set of N spin-1/2 quantum objects called qubits, on which a sequence 
of operations called quantum gates is executed. In analogy to classical binary logic, the basis states of the 
qubits’ Hilbert space are usually denoted as |0} (replacing the spin-1/2 state |t)) and |1) (replacing |.)). 

In this section, we go through the steps of assembling quantum circuits and simulating their behavior on 
a classical computer. Naturally, the matrix representation of quantum gates and circuits constructed here 
is neither efficient nor desirable for building an actual quantum computer. It is merely useful for acquiring a 
detailed understanding of the workings of quantum circuits and algorithms. 

In what follows, we adhere strictly to Chapter 5 of Nielsen& Chuang, 1^ which provides many more details 
of the calculations, as well as further reading for the interested student. 


3.5.1 quantum gates 

Any quantum circuit can be constructed from a set of simple building blocks, similarly to a classical digital 
circuit. These building blocks are canonical quantum gates,*? of which we implement a useful subset here. 
single-qubit gates 


Single-qubit gates act on one specific qubit in a set: 


e The Pauli-X gate. [x | acts like 6, = |1)(0| + |O) (1| on the desired qubit, and has no effect on 


all other qubits. A single-qubit input state |qWi,) entering the gate from the left is transformed into 
the output state |Wout) = Gx|Win) exiting the gate towards the right. 


e The Pauli-Y gate. |y | acts like Gy = i|1)(0| — i|O) (1| on the desired qubit, and has no effect on 


all other qubits. 


e The Pauli-Z gate. [7] acts like 6, = |0) (0| — |1) (1| on the desired qubit, and has no effect on all 
other qubits. 


l4Michael A. Nielsen and Isaac L. Chuang: Quantum Computation and Quantum Information, 10th Anniversary Edition, 
Cambridge University Press, Cambridge, UK (2010). 
15See https://en.wikipedia.org/wiki/Quantum, logic. gate. 


N 
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e The Hadamard gate _| yl acts like a = o ena 


on the desired qubit, and has 


no effect on all other qubits. 


To implement these single-qubit gates in a general way, we proceed as in In[331] by defining a matrix that 
represents the operator 4 acting on the kt” qubit in a set of n qubits: 


In[361]:- op[n Integer, k Integer, a_] /; 1<=k<=n && Dimensions [a]=={2,2} := 
KroneckerProduct [IdentityMatrix[2^(k-1), SparseArray], 


a, 


IdentityMatrix[2^ (n-k), SparseArray]] 


This allows us to define the single-qubit Pauli and Hadamard gates with 


In[362]0: (id, ox, oy, oz} = Table[SparseArray[PauliMatrix[i]], (i, 0, 33]; 
In[363]:-X[n, Integer, k Integer] /; 1<=k<=n := op[n, k, ox] 
In[364]:- Y[n, Integer, k Integer] /; 1<=k<=n := op[n, k, oy] 

In[365]:-Z[n, Integer, k Integer] /; 1<=k<=n := op[n, k, oz] 
In[366]:-H [n. Integer, k Integer] /; 1<=k<=n := opln, k, (oxtoz)/Sqrt[2]] 


as well as the corresponding rotation operators R,(¢) = Lie + Lto, = el0/22-160x/2 etc. that are also 
known as phase gates, 


In[3671:=RX[n_Integer, k_Integer, q.] /; 1<=k<=n := 

opin, k, (1+Exp[I*@])/2*id + (1-Exp[I*@] ) /2*ox] 
In(3681:=RY[n_Integer, k_Integer, @_] /; 1<=k<=n := 

opin, k, (1+Exp[I*@])/2*id + (1-Exp[I*qQ1)/2*0y] 
In(3691:=RZ[n_Integer, k Integer, @_] /; 1<=k<=n := 

op[n, k, (1+Exp[I*@])/2*id + (1-Exp[I*@] )/2*oz] 


two-qubit gates 


Interesting quantum circuits require operations that involve more than one qubit. 
The SWAP gate exchanges the state of qubits j and k in a set of n qubits: 
3 
EE 
Without going through complicated considerations over basis-set indices, we construct it through the 


definition SWAPÚN = (10 & 109 +89 e 8(9 +80 a 8(9 + 6Y @6)/2 and building on the above 
Pauli gates: 


In[370]:- SWAP [n. Integer, (j Integer, k Integer]] /; 1<=j<=n && 1<=k<=n && j!-k := 
(IdentityMatrix[2^n, SparseArray] + 
X[5,3].X[n,k] + Yu, i1]. YUm,k) + Zin, j] -Zim k1 2/2 


The matrix representation of a two-qubit SWAP takes on the familiar form 


In[371]:- SWAP [2, {1,2}] //Normal 
Out[371]- ((1, 0, O, O}, 

X0. D, 1, 0%, 

X0. da 0. 0$, 

10. D. O, 1 


The square root of the SWAP gate is also sometimes used, and is defined similarly: 


In[372]1:- SQRTSWAP [n_Integer, (j Integer, k Integer)] /; 1<=j<=n && 1<=k<=n && j!-k := 
(3+1)/4 * IdentityMatrix[2^n, SparseArray] + 
(1-1)/4 * (X[n, j].X[In,k] + YIn,jl.Y[n,k] + Z[n,j].Z[n,k]) 


p 
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To define the controlled-NOT or CNOT gate, we first make a general definition for controlled gates. The 
n-qubit operator CTRL[n,A,A] acts like the operator A if all qubits in the list A = (h.b,..., ix} are in the 
|1) state, and has no action (acts like the identity operator on n qubits) if any of the qubits in the list A 
are in the |0) state: 


k k k 
CTRL = |G9ID QI? -Â+ [1- Wa] 132 14 |G9ID a] | (4-1) (3.38) 
j=1 j=1 


Jj=1 


Its circuit representation is 


w» 


The bracket in the last expression of Equation (3.38) is constructed with Apply (Dot, op[n,#,P1]&/@A] 
that first constructs a list of projection operators |1) (1|? for the control qubits, and then applies the Dot 


operator to assemble them into the product Gul) app. 


In[373]:-PO = (id + 0z)/2 //SparseArray;  (* qubit projector |0)(0| *) 
In[374]:-P1 = (id - oz)/2 //SparseArray;  (* qubit projector |1)(1] *) 
In[375]:- CTRL [n. Integer, A. /; VectorQ[A,IntegerQ], A ] /; 
(Unequal@@A) && Min[A]>=1 && Max[A]<=n && Dimensions[A]--í2^n,2^n) := 
IdentityMatrix[2^n, SparseArray] + 
Apply[Dot, op[n,#,P1]&/@A].(A - IdentityMatrix[2^n, SparseArray]) 


With this definition, the CNOT operator CNOTÚA = 0) (0|O @ 1 + [1) (10 @ a 


: 


is simply the CTRL operator with a single element in the list A = {j} and a single-qubit A= al) operator, 


in(376]:=CNOT[n_Integer, j Integer -> k Integer] /; 1<=j<=n && 1<=k<=n && j!=k := 
CTRL Iċ; 43%, opin k, ox]] 


Notice that here we use the notation CNOT [n, j->k] to indicate that qubit y controls qubit k: this arrow 
notation -» is purely for syntactic beauty and has no further effects (it is a pattern like any other, with no 
unintended side effects). The matrix representation of a two-qubit CNOT takes on the familiar form 


In[377]:=CNOT[2, 1->2] //Normal 
out [377]- (11 , D. D. 07, 

i0. 1, 0, OF; 

40, D, Oy 1% 

4D, £x 1. DI 


three-qubit gates 


For completeness, we define three-qubit gates that are sometimes useful in the construction of general 
quantum circuits. 


The CCNOT gate or Toffoli gate is a controlled-NOT gate CCNOT[n, {i,j}->k] with two controlling 
qubits, / and j, and is defined in analogy to the CNOT gate: 


2 


Go 


N 


w 


w 
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In[378]:=CCNOT [n. Integer, {i_Integer, j Integer) -> k Integer] /; 
1<=i<=n && 1<=j<=n && 1<=k<=n && Unequal[i,j,k] := 
CTRL[n, {i,j}, opin, k; oxl] 


The controlled-SWAP gate or Fredkin gate CSWAP[n, i->{j,k}] conditionally swaps two qubits, j and k: 


+ 


1n[379]:- CSWAP [n, Integer, i Integer -> {j_Integer, k Integer)] /; 
1<=i<=n && 1<=j<=n && 1<=k<=n && Unequal[i,j,k] := 
CTRL[n, {i}, SWAP[n, {j, k}]] 


Av - 


3.5.2 a simple quantum circuit 


As a simple example, we study the quantum circuit 


qubit 1: |0) H 

qubit 2: |0) ane 
The unitary operation corresponding to this circuit is a Hadamard gate on qubit 1, followed by a con- 
trolled-NOT gate where qubit 1 controls the inversion of qubit 2. In Mathematica this gate sequence needs 


to be written from right to left, because the gates are represented by matrices that will be applied to a 
state vector on their right: 


In[380]:-8 = CNOT[2, 1->2] . H[2, 1]; 

In[381] := Normal [S] 

out (381]-{{1/Sqrt [2], 0, 1/Sqrt[2], Oo}, 
(0, 1/8SqrtI2], 0, i/t TF, 
10, 1/SgrtI2], 0, -17Sgrt[21f, 
(i/Sqet[2], 0, -1/8agrt[2], 0)? 


The matrix representation of Out [381] refers to the two-qubit basis set 5 = {]00), |01), |10), |11)}, which 
we can inspect for any number of qubits with 


1n[382):;- B[n. Integer /; n>=1] := Tuples[{0, 1}, n] 
In [383] :- B [2] 
0ut[383]- (40,0), {0,1}, {1,0}, 11,177 


The input state of our circuit is the product state |Win) = |0) Y |0} = |00), which is the first element of Bo: 


In[384]:=1pin = {1,0,0,0}; 


The output state of our circuit follows from the application of S, 


In[385]:-ipout = S . Yin 
out [385]- (1/Sqrt [2], 0, 0, 1/Sqrt[2]} 


|00)+|11) 
JB c 


Looking at the basis set 55 we identify this output state with the maximally entangled state |Wout) = 
Projective measurements on the two qubits, 


qubit 1: |0} H Á bit 1 

qubit 2: |0) inii bit 2 
give 5096 probability of finding the classical result "00" and 5096 probability of finding "11", whereas the bit 
combinations "01" and "10" never occur: 
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In[386]:- Abs [pout] ^2 
0ut[386]- (1/2, 0, O, 1/2} 


It is important to recognize that these four probabilities are insufficient to identify the state |Yout), even if 
many measurements are made, because any state whose diagonal density-matrix elements match Out [386] 
gives these probabilities. Generally, in order to identify a two-qubit output state fully, a quantum-state 
tomography (QST)!° must be performed, which involves applying further phase gates (qubit rotations) 
before the projective measurements and measuring all sixteen (fifteen non-trivial) expectation values 
(Wout|F1 Q Ga|Wout) for 01,02 € (1,65,6y, 62), followed by an inversion procedure to estimate the density 
matrix: ! 


--— E e 
p=, Dd 3 (WoutlF1 @ G2|Vout) - 1 62 


61€([1,6x,0y,07) 02€([1,0x,0y,02) 


11+1z+z1+zz dx-—ify-czx-—izy xLl-4xz-—iyl—iyz xx—I1xy —1yx— yy 

1lx+ily+zx+izy 11-1Ilz+zl-zz xx+ixy-—lyx+yy xl—-—xz-—iyl+iyz 

4 |xl+xz+lyl+iyz xx—ixy+lyx+yy 1l+1lz-zl—-zz 1x-ily-—2zx+izy 

xx+ixy +iyx— yy xl-—xz+lyl—iyz 1x+ily-zx-—izy 11-12-21 +2z 
(3.39) 


E 


(abbreviating xy = (Wout|Fx Q Fy|Wour) etc.) A full QST on n qubits requires measuring 4^ — 1 such 
expectation values, which makes the QST infeasible in general. 


3.5.3 application: the Quantum Fourier Transform 


The discrete classical Fourier transform** (CFT) of a list of N complex numbers X= (xo, X1, ..., Xm-1) is 
given by the list Y = (yo. Y1,..., Yn-1) with elements 


xpe? TUKIN, (3.40) 
0 


1 
Xi 7 VN 


bw 
Il 


It can be seen as a unitary matrix operation 
y=F-X with Fix = e? N J YN, (3.41) 


With the Fast Fourier Transform (FFT) algorithm,*? the computational effort of evaluating Equation (3.41) 
is of order O[N log(N)]. 

The discrete Quantum Fourier Transform (QFT) is precisely the same transformation, except that the 
vectors X and Y are encoded into quantum states. For this, a quantum system with Hilbert space dimension 
N is described by a basis set {|0),|1),..., IN — 1)), and the states |x) = bear xij) and ly) = xx yj) 
are seen as related by the unitary QFT operator F such that 


ly) = £» with (j|F|k) = Fix, (3.42) 


in analogy to Equation (3.41). The idea of this section is that the QFT can be evaluated much faster than 
the CFT, even though both are mathematically equivalent. 

We assume that N = 2” is an integer power of two.°° The Hilbert space of n qubits has exactly 2” = N 
dimensions, and therefore we use these n qubits to encode the states |x) and |y) in the following way. 
The 2” basis states B, = {]00...00),|00...01),|00...10),..., |11...11)} are, in our usual construction 
through tensor products (section 2.4.2), listed in increasing order when interpreted as binary numbers 
(see In[382]). We give each basis state a new label equal to this binary number: |00...00) = |0), 


16See https: //en. wikipedia. org/wiki/Quantum_tomography. 

17Equation (3.39) is a direct inversion that may not result in a positive semi-definite density matrix if experimental noise is 
present. In such cases, more elaborate inversion procedures are available. 

18See https://en.wikipedia.org/wiki/Discrete Fourier transform. 

19See https://en.wikipedia.org/wiki/Fast Fourier transform. 

For all other cases, choose n as the smallest integer > logo(N) and set xy... X2n—1 to zero. 
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[00...01) 2 |1), 00... 10) = |2), ..., |11... 11) = |2" — 1), such that the state of the first qubit is the 
most significant bit (MSB) of the binary representation of the basis state's index, and the state of the 
nh qubit is the least significant bit (LSB) of the binary representation of the basis state's index. What 
follows below is a quantum circuit operating on these n qubits that has the effect of the QFT operator Ê, 
as expressed in this binary basis. 

The Quantum Fourier Transform circuit is assembled from single-qubit Hadamard gates and two-qubit 
controlled Z-phase gates, where Ry = Rz(2m/2‘) = |0)(0| + e?7//2*|1y (1| using 1n[3691: 


1nH Ro R3 "we Ry-1 Rn | X 1 
2 | ae HH Rope Rn-2 H Rai He] ] 2 
n 1 fi e tt 0 -eH H Ro | n 1 
n s e e.. e ras i H x n 
To construct the i* dashed block consisting of a Hadamard gate on qubit į followed by n — i controlled 
Z-phase gates, we remember that the application of matrix operators happens from right to left, in the 


reverse order from that shown in the circit diagram above. We first construct a list of the controlled RZ 
operators and contract it by applying Dot: 


In[387]:-QFTblock[n Integer, i Integer] /; 1<=i<=n := 
Apply[Dot, Table[CTRL[n, (jj, RZ[n, i, 27/2^7(j*1-1)]], ij, n, it1, -1}]]. 
H[n,i] 


We assemble the n-qubit QFT operator from these dashed QFTblock blocks and a set of SWAP operations 
that reverses the qubit order, 


In[388]:-QFT [n Integer] /; n>=1 :- 
Apply[Dot, Table[SWAP[n, (i, n+1-i}], (i, 1, n/2}]]. 
Apply[Dot, Table[QFTblock[n, i], (i, n, 1, -1}]] 


The matrix representation of this QFT operator is a 2” x 2” matix with element (j, k) given by 277/2e2™UK/2”, 
precisely as expected from Equation (3.42) with N — 2". We check this relation for n — 1...6 with 


In[389]:- Table [QFT [n] == 27(-n/2)*Table [Exp [27*1*j*k/27n], 1j,0,2^n-1), {k,0,27n-1}], 
ín, 6}] //FullSimplify 
Out[389]-(True, True, True, True, True, True} 


The resources used to construct this quantum circuit are 


e n Hadamard gates, 


9 a) controlled Z-phase gates, and 


e n/2 swap gates. 


In the present classical simulation of quantum circuits, each quantum gate is a sparse 2" x 2" matrix, usually 
containing O(2”) nonzero matrix elements; applying such a simulated gate to a state therefore takes O(2”) 
time, which makes the simulated QFT no faster than the classical FFT, which scales as O(2"n). However, 
if we can construct a physical system in which these gates can be applied in a time that scales at most 
polynomially with n, then the QFT is a massive improvement over the scaling of the classical FFT. The 
development of such physical qubit/gate systems is the focus of much ongoing scientific research. 
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3.5.4 application: quantum phase estimation 


The QFT circuit of section 3.5.3 cannot be used by itself in practice, because it requires the preparation of an 
arbitrary quantum state containing an exponential number of parameters xj, as well as a full quantum-state 
tomography to read out an exponential number of parameters y; describing the final state (see section 3.5.2). 
In this section we study a quantum circuit that uses the QFT as a component, and circumvents these 
exponential input/output bottlenecks. 

Unitary matrices have eigenvalues that are of unit norm, and can be written as e?"'? with y € IR. The 
question addressed here is: given a unitary operator Ú/ and an eigenstate |u) such that U,|u) = e?rie|u), 
can we estimate efficiently, that is, to t binary digits with an effort that scales polynomially with t? 

The answer is yes, using the following quantum circuit that makes use of the Quantum Fourier Transform 
of section 3.5.3 but (i) starts with an initial product state that can be prepared with O(t) effort, and (ii) 
does not require a full quantum state tomography, but instead finishes with a simple projective measurement 
that takes O(t) effort. 


0) 4H a MSB: weight 2*-1 
0) 4H . Ft A| bit 3: weight 4 = 2? 
0) 4H $ €. bit 2: weight 2 = 2! 
0) 4H T "ys LSB: weight 1 = 2° 
u) —f- Up H UZ H US PUE e |u) (not measured) 


To set up a quantum phase estimation in Mathematica, we begin by defining the unitary operator Oy and 
its eigenstate |v) with 


In(390] :=u = {1}; 
Ints911:=U[qp_] = {{Exp[27*I*p]}}; 


and check that they satisfy Up|u) = e?r'e|u) and (u|u) = 1: 


m[392]:={U[p] .u === E^(27*I*q)*u, Norm[u] == 1} 
out [392]= {True, True} 


Here we use a one-dimensional quantum system: the operator Us is a 1 x 1 matrix, and the state |u) is a 
list of length 1. More generally, the Hilbert space of the system under test (SUT) can be arbitrarily large 
(see Q3.22), and more complex quantum circuits can be substituted for Ü in more elaborate experiments. 

In order to construct the phase estimation circuit, we will also need the unit operator acting on the 
SUT: 


In[393]:-UO = IdentityMatrix[Length[u], SparseArray] ; 


The controlled version of the Oy operator, where the ¡** qubit out of a set of n qubits controls the 
application of Uy to the SUT, is 0c = |0)(0|O &1 4-1) (110 @ Uy. We use the tensor-product techniques 
of section 2.4.2 to couple the qubits to the SUT: 


In[394]:- CTRLU [n Integer, i Integer, q.] /; 1<=i<=n := 
KroneckerProduct[op[n,i,PO], UO] + KroneckerProduct[op[n,i,P1], U[q1] 


The initial state of the phase estimation circuit is |o) = |0)9* @ |v). We know that the state |0)9* = 
[00 ...00) is the first basis state in the computational basis B, (eigen-basis of 67), and construct it with 
SparseArray[1->1, 2^t]. As an example, we work with t = 4 qubits here: 


In[395]:=t = 4; 
In[3961:=1p0 = Flatten[KroneckerProduct [SparseArray[1->1, 27t], u]] //Normal; 


A 
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Applying a Hadamard gate to each qubit gives the state 


In[397]:-1D1 = KroneckerProduct[Apply[Dot, Table[H[t, i], fi, t)]], UO] . wo; 


Applying the controlled Un = Us operations sequentially then gives the state 


1n[398]:-1p2[q. ] = Apply[Dot, Table[CTRLU[t, i, 2^(t-i)*qg], (i, t, 1, -1}]] . pi; 


Finally, an inverse QFT yields the phase-estimation state |£}. Remember that the QFT is a unitary 
operation, and therefore its inverse is its Hermitian conjugate: 


1n[399]:-E [g. ] = KroneckerProduct[ConjugateTranspose[QFT[t]], UO] . w2[q]; 


We use the techniques of section 2.4.3, in particular In [257], to drop the component |u) at the end of the 
quantum circuit and find the reduced density matrix of the qubits. The diagonal elements of this reduced 
density matrix are the probabilities of finding the various basis states of B, in a projective measurement as 
shown on the right of the above circuit: 


In[400]:- prob [q. ?NumericQ] := Re[Diagonal[traceout[e[N[g]], -Length[u]]]] 


The first element of prob[q] gives the probability of measurement outcomes (0, 0, 0, 0), that is, the 
probability that the qubits are in the joint state |0000) = |0) Y |0) @ |0) Y |0}. The second element of 
probL@] gives the probability of measurement outcomes (0, 0, 0, 1}, that is, the probability that the qubits 
are in the joint state |0001) = |0) & |0) & |0) & |1). And so forth: the j^^ element of prob[@] gives the 
probability of measurement outcomes corresponding to the binary representation of j — 1. 

The trick of this phase-estimation quantum circuit is that the information on @ is contained in the state 
le/) in a way that can be extracted from these probabilities without doing a full quantum-state tomography. 
We get an idea of what this means by looking at the probabilities for the different measurement outcomes 
when ọ is an integer multiple of 2^ *: 


In[401]]:- Table[prob[q]l, fp, 0, 1, 2^(-t))] //Chop 

Out[4013]-(1[(1. , 0, 0, 0, 0, O, 0, 0, O, 0, 0, 0, O, 0, 0, OF, 
fO, La 0, 0, 0, D, By Oy Oy. 0,0, 0,0, By OD Oh 
10. D. Lo 0, O0, Dy Oy By D, CO. Oy, Uy 0, D, D, DR 
i0. Do, De ls 0, DDD Me O, Oy. D. D. Dy Dd. 
i0, D, UD, Oy. Lg Dy Bye D, Oy Oe 0, Ou D; D, D, D, 
f0. D, D; OQ, D, dh, 0. 0, D, Oe O, OU, O0, D, D, DE 
10, D, 0, By D, DO, 1.. By D, DD, Be Oy 0,0, D, Oh 
il. Oy D. D. 0. D. Of das O0. Oy 04 0, D, D, Oy DE 
iB, 05. D, By 0, D, 0, 0, lo, D, D, O0, 0, D, 0, Oh 
ib. Gs Dn 02 D. 0, Oy D, EL D, 0, D, D. Oy Oh 
10, 0, 0D, 0, 0, D, O, Oy D, Oy Tas 0, O, D4 0, ORE, 
iB. OU, D, OD, 0, D. 0, Oy D, O. Ll, D, Oe D 
i0, 0. D. 0, 0, D, 0, 0, D, O, O, D, 1., D, O, Ob 
i0. 05 D. D 0, D. 0, OD, 0.0 D. 0: Lu. O, Oh 
6, 0, D, 0: Oy D, O, 0, D, O, 0,0, O, Oy Li, Ob 
iD. O. D, O, 0, D, 0, 0, D, O, O, D, Oy 0,0 dh 
(1.4 0. Dy 0, 0, By 0, Oy 0, O, Us O, 0, 0, Oy OFF 


Whenever ọ is an integer multiple of 27? = 1/16, we find that only one basis state is occupied, and 
therefore the outcomes of the projective measurements on the 4 qubits always give the same results, with no 
quantum fluctuation. A single projective measurement of all 4 qubits can be interpreted as a binary number 
jJ € (0,1,2,..., 15) that is related to the phase estimate as p = J/16; no quantum-state tomography is 
required. 

What happens when q is not an integer multiple of 27t? It turns out that the basis state corresponding 
to the nearest integer multiple of 2 will be found most frequently in the projective measurements. For 
example, for p = 0.2 the probabilities for projecting |£o.2) into the 16 basis states are 
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In[402] :- prob [O . 2] 
üut[409]- {Oss 0,01, 0.02, 0.88, 6.06, O.01, Ds, Des Beg Des O.y Ong Dey Des Dos OL. 


(rounded here to two decimals). The fourth basis state, which is |0011} corresponding to p = 3/16, will 
be found in about 88% of all experiments, and so a plurality vote most likely yields p = 3/16 = 0.1875 
as a fair estimate of the phase, with an upper bound on the error of 2771 = 1/32; no quantum-state 
tomography required. We extract the expected plurality-vote winner of a large number of experiments with 


i | In[4081:=mostprobable[«qp_?NumericQ] := (Ordering[prob[q], -11[[1]] - 1)/27t 


where the Ordering function is used to give the position of the largest element: 


i | In[4041:=mostprobable [0.2] 
2 |Out[404]- 3/16 


It can be shown that mostprobable[q]--Mod[Round[«, 2^(-t)], 1]. Increasing the number of qubits 
t results in more precise estimates, while keeping the circuit complexity at O(t?). 


3.5.5 exercises 


Q3.21 For the output state |Wour) of Out [386], calculate all expectation values necessary to fill in Equa- 
tion (3.39). 


Q3.22 Multi-dimensional phase estimation: set u = (1, 1}/v2 and Uy = e?"'P4£1, 0), (0, 1}} (two-dimen- 
sional system under test) and show that the phase-estimation algorithm still works. 


Q3.23 What happens if |u) is not an eigenstate of Uy? Set u = (1, 11/2 and Uy = ((e?re, 0}, (0, e^rie) 
(two-dimensional system with two different evolution frequencies) and re-evaluate the attached 
Mathematica script. Plot prob[@] for a range of frequencies y using ListDensityPlot and 
interpret the resulting figure. 


quantum motion in real space 


So far we have studied the quantum formalism in the abstract (chapter 2) and in the context of rotational 
dynamics (chapter 3). In this chapter we work with the spatial motion of point particles, which represents 
a kind of mechanics that is much closer to our everyday experience. Here, quantum states are called 
wavefunctions and depend on the spatial coordinate(s). This apparent difference to the material covered in 
the previous chapters disappears when we express all wavefunctions in a basis set. We develop numerical 
methods for studying spatial dynamics that stay as close to a real-space description as quantum mechanics 
allows. 
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4.1 one particle in one dimension 
A single particle moving in one dimension is governed by a Hamiltonian of the form 
H=T+V (4.1) 


in terms of the kinetic operator 7 and the potential operator V. These operators are usually expressed in the 
Dirac position basis set {|x)},eR,> which diagonalizes the position operator in the sense that &|x) = x|x),? 
is ortho-normalized (x|y) = ó(x — y), and complete f^ |x)(x|dx = 1. Using this Dirac basis, the explicit 
expressions for the operators in the Hamiltonian are 


f= No dx 3 o, v= T dx[x)V (x) (xl, (4.2) 


oo 


where m is the particle's mass and V(x) is its potential. Single-particle states |y), on the other hand, are 
written in this basis as 


lp) = / ” dxyo)p9. (4.3) 


where W(x) = (x|w) is the wavefunction. 

In what follows we restrict the freedom of the particle to a domain x € Q = [0, a], where a can be 
very large in order to approximately describe infinite systems (example: section 4.1.7). This assumes the 
potential to be 


oo for x <0 
V(x) = 4 W(x) forü0«x«a (4.4) 
oo forx> a 


This restriction is necessary in order to achieve a finite representation of the system in a computer. 


exercises 


Q4.1 Insert Equations (4.2) and Equation (4.3) into the time-independent Schrödinger equation Aly) = 
Ely). Use the ortho-normality of the Dirac basis to derive the usual form of the Schrodinger equation 
for a particle's wavefunction in 1D: — Pay (x) +V(x)y(x) = EVO. 


Q4.2 Use Equation (4.3) to show that the scalar product between two states is given by the usual formula 


(bo = E W(x) x(x) dx. 


4.1.1 units 


In order to proceed with implementing the Hamiltonian (4.1), we first need a consistent set of units (see 
section 1.12) in which to express length, time, mass, and energy. Of these four units, only three are 
independent: expressions like the classical kinetic energy E = imv? indicate a fixed relationship between 
these four units. 

A popular system of units is the International System of Units (SI),? in which this consistency is built in: 


In[4051:=LengthUnit = Quantity ["Meters"]; (* choose freely *) 
In[406]:=TimeUnit = Quantity ["Seconds"]; (* choose freely *) 
In[407]:- MassUnit = Quantity ["Kilograms"]; (* choose freely *) 


In[4081:=EnergyUnit = MassUnit*LengthUnit^2/TimeUnit^2 //UnitConvert; 


1To be exact, the Dirac position basis set spans a space that is much larger than the Hilbert space of square-integrable 
smooth functions used in quantum mechanics. This can be seen by noting that this basis set has an uncountably infinite 
number of elements |x), while the dimension of the Hilbert space in question is only countably infinite [see Equation (4.5) for 
a countably infinite basis set]. The underlying problem of the continuum, which quantum mechanics attempts to resolve, is 
discussed with some of its philosophical origins and implications by Erwin Schródinger in his essay "Science and Humanism" 
(Cambridge University Press, 1951, ISBN 978-0521575508). 

?This eigenvalue equation is tricky: remember that x is an operator, |x) is a state, and x is a real number. 

3See https://en.wikipedia.org/wiki/International System of, Units. 


w 


4.1. ONE PARTICLE IN ONE DIMENSION 73 


The consistency of this set of definitions is seen in In [408], making the energy unit depend on the other 
units, which in turn can be chosen freely. Many other combinations are possible, as long as this consistency 
remains. 

Another popular choice is to additionally couple the time and energy units through Planck's constant h, 
and make both dependent on the length and mass units (thus reducing the system of units to only two 
degrees of freedom): 


In[4091:=LengthUnit = Quantity["Meters"]; (* choose freely *) 
In[410]:- MassUnit = Quantity["Kilograms"]; (* choose freely *) 
In[411]:- TimeUnit = 
MassUnit*LengthUnit^2/Quantity ['ReducedPlanckConstant"] //UnitConvert; 
In[412]:=EnergyUnit = Quantity["ReducedPlanckConstant"]/TimeUnit //UnitConvert; 


This latter set of units is what we will be using in what follows, without restriction of generality. We express 
the reduced Planck constant in these units with 


In[413]:- f? = Quantity ["ReducedPlanckConstant"]/(EnergyUnit*TimeUnit) //UnitConvert //N 
Out [413]= 1. 


which is equal to unity because of our chosen coupling between energy and time units; in other unit systems 
the value will be different. Note the use of //N at the end of In[413] to force the result to be a pure 
machine-precision number instead of a variable-precision number that tracks the accuracy of the involved 
physical quantities. 

To set the physical size a of the computational box, for example to a = 5 um, we execute 


In[414]:=a = Quantity[5, "Micrometers"]/LengthUnit //UnitConvert //N; 


and to set the particle's mass m, for example to the neutron's mass, 


In[4151:=m = Quantity["NeutronMass"]/MassUnit //UnitConvert //N; 


In the calculations that follow, we will not be explicit about the system of units and the physical quantities. 
Instead, we will use direct dimensionless definitions such as 


In[416]:-a = 30; (* calculation box size in units of length *) 
In[417]:- m 


[i 
EE 


(* particle mass in units of mass *) 
In[418]:-]] = 1; (* value of fi assuming In[412] *) 


These are to be replaced by In[414], In[415], and In[413] in a more concrete physical situation. 


4.1.2 computational basis functions 


In order to perform quantum-mechanical calculations of a particle moving in one dimension, we need a 
basis set that is more practical than the Dirac basis used to define the relevant operators and states above. 
Indeed, Dirac states |x) are difficult to represent in a computer because they are uncountable, densely 
spaced, and highly singular. 

The most generally useful basis sets for computations are the momentum basis and the finite-resolution 
position basis, which we will look at in turn, and which will be shown to be related to each other by a type-l 
discrete sine transform. 


momentum basis 


The simplest one-dimensional quantum-mechanical system of the type of Equation (4.1) is the infinite 
square well with W(x) = 0. Its energy eigenstates $,(x) for n = 1,2,3,... satisfy the Schrödinger 


m 


p 
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equation — © p(x) = Endn(x) (see Q4.1) and the boundary conditions ¢,(0) = $,(a) = 0 necessitated 
by Equation (4.4). Their explicit normalized forms are 


(xm = $409 = "E sin (77) (4.5) 


24? 2 


with eigen-energies 


We know from the Sturm-Liouville theorem? that these functions form a complete set (see Q2.2); further, 
we can use Mathematica to show that they are ortho-normalized: 


In[419]:- p[a , n_, x ] = Sqrt[2/a] *Sin[n*7t*x/a] ; 
1n[420] :- Table [Integrate[@la,n1,x]*@[a,n2,x], {x, 0, a), 
(ni, 10}, ín2, 10}] //MatrixForm 


They are eigenstates of the squared momentum operator $? = ( in2y? = -h n 
2,242 
T n*m*h 
en) = Tin), (4.7) 


which we verify with 


In[4211:=-A72*D[p[la,n,x], {x,2}] == (n^2*772*h^2)/a^2*qQ[a,n,x] 
Out [421]- True 


This makes the kinetic operator 7 = 62/(2m) diagonal in this basis: 
(n|f |n) = Ennn, f = S ln) Entnl. (4.8) 


However, in general the potential energy, and most other operators that will appear later, are difficult to 
express in this momentum basis. 

The momentum basis of Equation (4.5) contains a countably infinite number of basis functions, which is 
a great advantage over the uncountably infinite cardinality of the Dirac basis set. In practical calculations, we 
restrict the computational basis to n € {1. ; Nmax), which means that we only consider physical phenomena 
with excitation energies below Enpa = en n? (see section 2.1.1). Here is an example of what these 
position-basis functions look like for Mmax = 10: 


1.55 
E 

0.5 yi 
0.0 
-05t 
1.04 


-15E 
00 02 04 


a 


—— n=1 —— nz2 —— n=3 —— n=4 —— n=5 


n(x) 


— n=6 — nz7 — nz8 ——— nz9 ——- n=10 


6 0.8 Sel] 


Using the approximate completeness of the momentum basis, $77"*|n) (n| = 1 (see section 2.1.1), the 
kinetic Hamiltonian thus becomes 


Nmax 


dola)(al 


We set up the kinetic Hamiltonian operator as a sparse diagonal matrix in the momentum basis with 


St = 2. (nIT m) (|= ME (4.9) 


n=1 n,n'— 


4See https://en.wikipedia.org/wiki/Sturm-Liouville theory. 
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In[422]:=nmax = 100; 
In[4231:=TM = SparseArray[Band[{1,1}] -> Range[nmax]^2*7^2*h^2/(2*m*a^2)]; 


N 


where Nmax = 100 was chosen as an example. 


finite-resolution position basis 


Given an energy-limited momentum basis set (|n) "t from above, we define a set of Nmax equally-spaced 
points 
xy =j-b (4.10) 


for j € (1... Nmax}, with spacing A = a/(Mmax + 1). These grid points fill the calculation range x € [0, a] 
uniformly without covering the end points. We then define a new basis set as the closest possible 
representations of delta-functions at these points: for ¡€ (1... Nmax}. 


Nmax 


li) = VAM $n(9)In). (4.11) 


The spatial wavefunctions of these basis states are 


Nmax 


(xli) = B(x) = VAM dnl) ón Lo. (4.12) 


Here is an example of what these position-basis functions look like for Nmax = 10: 


Xi X2 X3 X4 Xs Xo X7 Xg Xo X10 


WT 


— j1 — j¡=2 — j3 — ja — j-e5 


— j=6 — j=7 — j=8 — j=9 — j=10 


This new basis set is also ortho-normal, (j|j") = dj, and it is strongly local in the sense that only the basis 
function $;(x) is nonzero at xj, while all others vanish: 


(Gl) = 00) = 3jp/ VA. (4.13) 


We define these basis functions in Mathematica with 


1 |In[422]:- nmax = 10; 

2 | In[425):- A = a/(nmax*1) ; 

3 | In[426]:=xx[j_] = j*A; 

2 |Inl4271:=8[j_, x_] = Sqrt[A]*Sum[@[n,xx[j]]*ol[n,x], (n, nmax}]; 


Since the basis function 9;(x) = @[j,x] is the only one which is nonzero at x; = xx[j], and it is close to 
zero everywhere else (exactly zero at the xjzj), we can usually make several approximations: 


> 


e |f a wavefunction is given as a vector V = v in the position basis, |y) = La vjj), then by 
Equation (4.13) the wavefunction is known at the grid points: 


vos) = (9h) = (91 So wl) = Y boli) = Y yd / WA = JE (4.14) 
j=l j=l j=l 


The density profile is thus given by the values of p(x;) = |W(xj)|? = |vj|?/A. This allows for very easy 
plotting of wavefunctions and densities by linearly interpolating between these grid points (/.e., an 
interpolation of order 1): 
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In[428]:-ListLinePlot[Transpose[(Table[xx[j], £j, nmax)], Abs[vl^2/A)1] 


By the truncation of the basis at Nmax, the wavefunction has no frequency components faster than 
one half-wave per grid-point spacing, and therefore we can be sure that this linear interpolation is 
a reasonably accurate representation of the wavefunction w(x) and the density p(x) = |(x|q)|?, in 
particular as Nmax — oo. 


An even simpler interpolation of order zero assumes that the wavefunction is constant over intervals 
[—A/2, A/2] centered at each grid point. This primitive interpolation is used, for example, to calculate 
the Wigner quasi-probability distribution in section 4.1.8. 


Similarly, if a density operator is given by 6 = eR aU) O'I, then the value of the density operator 
at a grid point (xj, xy) is given by 


Nmax Nmax 
0904) = olx) = 6sl | 37 Rel] = Y Ravan og 0G") 
j" jms. jms. 
Nmax 
ji Ô; im R; 7 
=> Rp jm —— Oi J J = de à (4.15) 
j" jm VA VA A 


That is, the coefficients R;y and the density values p(x;, xy) are very closely related. The diagonal 
elements of this expression (j = j^) give the spatial density profile. 


For any function f(x) that varies slowly (smoothly) over length scales of the grid spacing A, we can 
make the approximation 
f x)8;(x) = FOG) 0)(x). (4.16) 


This approximation becomes exact on every grid point according to Equation (4.13), and the assumed 
smoothness of f(x) makes it a good estimate for any x. 


conversion between basis sets 


Within the approximation of a truncation at maximum energy E, 


we can express any wavefunction |) 


Nmax’ 


in both basis sets of Equation (4.5) and Equation (4.12): 


| = win) = Y vi) (4.17) 


Inserting the definition of Equation (4.11) into Equation (4.17) we find 


Nmax Nmax Nmax Nmax Nmax 
X unln) = So vj vas: 2 = | VA vibes) | Im) (4.18) 
n=1 j=1 n=1 n=1 j=1 
and therefore, since the basis set {|n)} is ortho-normalized, 
Nmax Nmax 
Un = VA) ^ vids) = Xuv (4.19) 
j=1 j=1 


with the basis conversion coefficients 


2 j 2 ] 
= (nl) = Agnes) = (2 "E a(m5)24 sin). qz 


The inverse transformation is found from |n) — 2T (|n) j) inserted into Equation (4.17), giving 


Nmax 


y 2 M Xyus (4.21) 
n=1 
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in terms of the same coefficients of Equation (4.20). Thus the transformations relating the vectors dí (with 
components un) and V (with components vj) are V = X - ii and i = X - V in terms of the same symmetric 
orthogonal matrix X with coefficients X;j. 

We could calculate these coefficients with 


In[4291:=X = Table[Sqrt [2/(nmax+1)]*Sin[7*n*j/(mmax+1)], (n, nmax}, {j, nmax}] //N; 


but this is not very efficient, especially for large Nmax- 

It turns out that Equation (4.19) and Equation (4.21) relate the vectors Į and V by a type-I discrete 
sine transform (DST-I), which Mathematica can evaluate very efficiently via a fast Fourier transform.” 
Since the DST-I is its own inverse, we can use 


In(430]:=v = FourierDST[u, 1]; 
In[431]:=u = FourierDST[v, 1]; 


to effect such conversions. We will see a very useful application of this transformation when we study the 
time-dependent behavior of a particle in a potential ("split-step method”, section 4.1.9). 

The matrix X is also useful for converting operator representations between the basis sets: the 
momentum representation U and the position representation V of the same operator satisfy V =X -U.X 
and U = X -V - X. In practice, as above we can convert operators between the position and momentum 
representation with a two-dimensional type-l discrete sine transform: 


In[432]:- V = FourierDST[U, 1]; 
In[433]:-U = FourierDST[V, 1]; 


This easy conversion is very useful for the construction of the matrix representations of Hamiltonian 
operators, since the kinetic energy is diagonal in the momentum basis, Equation (4.7), while the potential 
energy operator is approximately diagonal in the position basis, Equation (4.25). 


4.1.3 the position operator 


The position operator X — [eis dx|x)x(x| is one of the basic operators that is used frequently to construct 
Hamiltonians of moving particles. The exact expressions for the matrix elements of this operator in the 
momentum basis are 


5 5 5 ; > ifn=n' 
(n|&|n) -f ax Zin (=) TE (=) E Om if n — n is odd (4.22) 
0 otherwise 


This allows us to construct the exact matrix representations of the operator X in both the momentum (xM) 
and the position (xP) bases: 


In[434]:=xM = SparseArray[{ 

Bana HLI <> a/2, 

{ni_,n2_} /; OddQ[ni-n2] -> -8*a*ni*n2/(7^2*(n1^2-n2^2)^2)], 
{nmax ,nmax}] ; 
FourierDST[xM, 1]; 


In [435] := xP 


See  https://en.wikipedia.org/wiki/Discrete sine transform and  https://en.wikipedia.org/wiki/Fast. 
Fourier transform. The precise meaning of the DST-I can be seen from its equivalent definition through a stan- 
dard discrete Fourier transform of doubled length: for a complex vector v, we can substitute FourierDST[v,1] by 
DST1[v_?VectorQ] :=-1*Fourier [Join[{0},v,{0},Reverse[-v]]][[2;;Length[v]+1]]. In this sense it is the discrete 
Fourier transform of a list v augmented with (i) zero boundary conditions and (ii) reflection anti-symmetry at the boundaries. 
Remember that the Fourier[] transform assumes periodic boundary conditions, which are incorrect in the present setup, and 
need to be modified into a DST-I. 
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A simple approximation of the position operator, which will be extremely useful in what follows, is found by 
observing that xP is almost a diagonal matrix, with approximately the grid coordinates x1, xX2,..., Xnmax ON 
the diagonal. This approximate form can be proved by using the locality of the position basis functions, 
Equation (4.16): 


xy = URL) = UI | a axlx) xt i) = n  dxbox(xl) = 7 " dxét (x) x8) (x) 
= xy [de 8}(%) 890) = lx. (423) 
0 


The resulting approximate diagonal form of the position operator in the position basis, found from the 
approximate completeness relation 5 7*7 |j) U| & 1, is 


Nmax Nmax Nmax Nmax Nmax 
Rx UI 2) 1001] = SOUL = dol = 210 xul. (4.24) 
j=1 j-1 jj'=1 jj'—1 
In[436]:- A = a/(nmax+1); (* the grid spacing *) 
In[437]:-xgrid = Range[nmax]*A; (* the computational grid *) 
In[4381:=xP = SparseArray[Band[{1,1}] -> xgrid];  (* x operator, position basis *) 
In[439]: xM = FourierDST[xP, 1]; (* x operator, momentum basis *) 


4.1.4 the potential-energy operator 


If a potential energy function W(x) varies smoothly over length scales of the grid spacing A, then the trick 
of section 4.1.3 allows us to approximate the matrix elements of this potential energy in the position basis, 


a a a 
V = 101) = al] f exooweoes = arameo) = f exer eoweossoa 
a 
s Wes) [| BAB) = By Ws), (425) 
where we have used the definitions of Equation (4.2) and Equation (4.4). This is a massive simplification 


compared to the explicit evaluation of potential integrals for each specific potential energy function. The 
potential-energy operator thus becomes approximately 


Nmax Nmax Nmax Nmax Nmax 


Ve |) DA AEO =D U= $ irw = 2l) WOg)Ul. (4.26) 
j=1 J=1 jj-—1 Jj'=1 
In[440]:=Wgrid = Map[W, xgrid]; (* the potential on the computational grid *) 
In[441]:- VP. = SparseArray [Band[{1,1}]->Wgrid]; (* potential operator, position basis *) 
In[442]:- VM = FourierDST[VP, 1]; (* potential operator, momentum basis *) 


4.1.5 the kinetic-energy operator 


The representation of the kinetic energy operator can be calculated very accurately with the description 
given above. We transform the definition of 1n[423] to the finite-resolution position basis with 


In[443]: TP = FourierDST[TM, 1]; (* kinetic operator, position basis *) 


For large Nmax and small excitation energies the exact kinetic-energy operator can be replaced by the 

position-basis form 

2 if j — jf, 

UIT x — x 4 -1 if if=/l=1, (4.27) 
D. if- j|22, 


N 


w 
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which corresponds to replacing the second derivative in the kinetic operator by the finite-differences 
expression Y”"(x) ~ — [2W(x) — w(x — A) — y(x + A)] /A?. While Equation (4.27) looks simple, it is ill 
suited for the calculations that will follow because (i) any matrix exponentials involving 7 will be difficult 
to calculate, and (ii) it is not very accurate (higher-order finite-differences expressions? are not much 
better). Thus we will not be using such approximations in what follows, and prefer the more useful and 
more accurate definition through In [423] and In [443]. 


4.1.6 the momentum operator 


The discussion has so far been conducted in terms of the kinetic-energy operator 7 = 62/(2m) without 
explicitly talking about the momentum operator p = -ihi. This was done because the matrix representation 
of the momentum operator is problematic. A direct calculation of the matrix elements in the momentum 
basis yields 


4.28 
dx 0 if n — n' is even. ( ) 


4 dó, h dinn! if n — n' is odd, 
(n|p|n’) = -in f a la ur an ifn— n iso 
0 


In Mathematica, this is implemented with the definition 


In[444]:- pM = SparseArray[{n1_,n2_}/;0ddQ[n1-n2] ->(4*1*f*n1*n2) /(a*(n272-n172)), 
{nmax ,nmax}] ; (* momentum operator, momentum basis *) 
In[4451:=pP = FourierDST[pM, 1]; (* momentum operator, position basis *) 


This result is, however, unsatisfactory, since (i) it generates a matrix that is not sparse, and (ii) for a finite 
basis size n < Mmax < oo it does not exactly generate the kinetic-energy operator 7 = p?/(2m) (see Q4.3). 
We will avoid using the momentum operator whenever possible, and use the kinetic-energy operator T 
instead (see above). An example of the direct use of p is given in section 5.2. 

For large Nmax and small excitation energies the exact momentum operator can be replaced by the 
position-basis form 


. 1 ifj—-/-2-1, 
UB) e xl ify =H, (4.29) 

0 if[j-/z1 
which corresponds to replacing the first derivative in the momentum operator by the finite-differences 
expression Y'(x) ~ [W(x + A) — p(x — A)] /(2A). While Equation (4.29) looks simple, it is ill suited for 
the calculations that will follow because any matrix exponentials involving 6 will still be difficult to calculate; 


further, the same finite-differences caveats as in section 4.1.5 apply. Thus we will not be using such 
approximations in what follows, and prefer the more accurate definition through In [444]. 


exercises 


Q4.3 Using Nmax = 100, calculate the matrix representations of the kinetic-energy operator f and the 
momentum operator f in the momentum basis. Compare the spectra of 7 and ?/(2m) and notice 
the glaring differences, even at low energies. Hint: use natural units such that a=m=ħ=1 for simplicity. 


(4.4 Using Nmax = 20, calculate the matrix representations of the position operator X and the momentum 
operator B in the momentum basis. To what extent is the commutation relation [X, 5] = ifi satisfied? 
Hint: use natural units such that a=m=f=1 for simplicity. 


4.1.7 example: gravity well [code] 


As an example of a single particle moving in one spatial dimension, we study the gravity well. This problem 
can be solved analytically, which helps us to determine the accuracy of our numerical methods. 

We assume that a particle of mass m is free to move in the vertical direction x, where x = 0 is the 
earth's surface and x > 0 is up; the particle is forbidden from travelling below the earth's surface (i.e., it 


6See nttps://en.wikipedia.org/wiki/Finite difference coefficient for explicit forms of higher-order finite- 
differences expressions that can be used to approximate derivatives. 
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is restricted to x > 0 at all times). There is no dissipation or friction. The Hamiltonian of the particle's 
motion is 


> iP dP 
The wavefunction W(x) of this particle must satisfy the boundary condition w(x) = 0 Vx < 0. 


In what follows we use the length unit £ = Gay which is proportional to the size of the ground 


state of Equation (4.30), as well as the mass unit M = m. Following section 4.1.1 we then define the time 
unit T = ML?/h = ($ ea and the energy unit € = h/T = (mg?h?)'/?. These natural units lead to 


mg? 
H E i h _ _ 
simple expressions for the mass: m M 1h ET 1, and g = IT = 1. As a result, we can set up 


the Hamiltonian (4.30) without fixing the particle's mass and gravitational acceleration explicitly: 


m[446]:=m = fi = g = 1; 


Other systems of units can be used in the same way by using the tools of section 4.1.1: first define a 
consistent set of units, and then express the physical quantities in terms of these units. The gravitational 
acceleration in particular would be set with 


In[447]:=8 = Quantity ["StandardAccelerationOfGravity"]/(LengthUnit/TimeUnit^2); 


analytic quantum energy eigenstates 


The exact normalized eigenstates and associated energy eigenvalues of Equation (4.30) are 


A 2m?g 1/3 
ayas Ala (2 ] mghte 1/3 
p(x) = ( $i) ` Ai (or) if x 20 Ex = —ay- ( z ) (4.31) 
0 ifx <0 
fork =1,2,3,..., where Ai(z) = AiryAi [z] is the Airy function, Ai'(z) its first derivative, and a, = 


AiryAiZero[k] its zeros: a; z —2.33811, ao ~ —4.08795, a3 = —5.52056, etc. 
For comparison to numerical calculations below, we define the exact eigenstates and eigen-energies with 


In[448]:-1p[k ,,x. ] = (2*m^2*g/h^2)^(1/6)*AiryAilAiryAiZero[k]-*x* (2*m^2*g/h^2)^(1/3)]/ 
AiryAi' [AiryAiZero[k]]; 
In[449]:-E[k ] = -AiryAiZero[k]*(m*g^2*h^2/2)-^(1/3); 


The ground-state energy is, in our chosen energy unit £, 


In[450]:- N [e [11] 
Out [450]= 1.85576 


The lowest three energy eigenstates look thus: 


0.5! 
€ oo nin 
Se oU — k=2 
-0.5 — k=3 
0 2 6 8 
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numerical solution (1): momentum basis 


Our first numerical attempt to find the ground state of the gravity well relies on the momentum basis of 
states |n). For this approach we treat the Hamiltonian of the problem in the same way as discussed in 
chapter 2 and chapter 3: we express each term of the Hamiltonian as a matrix in a fixed basis set. 

Since our calculation will take place in a finite box x € [0, a], we must choose the box size a large 
enough to contain most of the ground-state probability if we want to calculate it accurately. For the present 
calculation we choose a = 10£, which is sufficient (see figure above) since we picked the length unit £ 
similar to the ground-state size: 


In[451]:- a = 10; 


We only use a small number of basis functions here, to illustrate the method: 


In[452]:=nmax = 12; 


The matrix elements of the kinetic energy are set up following In[423]: 


In[4531:=TM = SparseArray[Band[{1,1}] -> Range [nmax]72*1172*H72/(2*m*a72)]; 


The matrix elements of the potential energy of Equation (4.30) are, from In[434], 


In[454]:-xXM = SparseArray[{ 
Bana Kiik => a/2, 
{ni_,n2_} /; OddQ[ni-n2] -> -8*a*ni*n2/(7^2*(ni1^2-n2^2)^2)], 
{nmax ,nmax}] ; 


In[455]:- VM = m*g*xM; 


The full Hamiltonian in the momentum representation is therefore 


In[456]:-HM = TM + VM; 


and the ground-state energy and wavefunction coefficients in the momentum representation 


In[4571:=gsM = -Eigensystem[-N[HM], 1, 
Method => {"Arnoldi", "Criteria" -> "RealPart", MaxIterations -> 10^6)]; 


The ground state energy is 


In[458]:-gsM [[1, 1]] 
Out [458]= 1.85608 


very close to the exact result of Out [450]. 
The ground state wavefunction is defined as a sum over basis functions, 


in{459]:=@[n_, x ] = Sqrt[2/a]*Sin[n*n*x/a] ; 


I[460]:-1pO [x ] = gsM[[2,1]] . Table[Q[n, x], (n, nmax}]; 


We can calculate the overlap of this numerical ground state with the exact one given in In [448], | (poly): 


1n[461]:- Abs [NIntegrate[wO[x]*w[1,xl, £x, 0, a)11^2 
Out [461]- 0. 999965 


Even for Nmax = 12 this overlap is already very close to unity in magnitude. It quickly approaches unity as 
Nmax increases, with the mismatch decreasing as n,,2, for this specific system. The numerically calculated 
ground-state energy approaches the exact result from above, with the mismatch decreasing as npl for 
this specific system. These convergence properties, discussed in section 2.1.1, are very general and allow 
us to extrapolate many quantities to Mmax — oo by polynomial fits of numerically calculated quantities as 
functions of nga. 
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numerical solution (11): mixed basis 


The numerical method outlined above only works because we have an analytic expression for the matrix 
elements of the potential operator V = mgX, given in Equation (4.22). For a more general potential, the 
method of Equation (4.26) is more useful, albeit less accurate. Here we re-do the numerical ground-state 
calculation in the position basis. The computation is set up in the same way as above, 


In[462]:-a = 10; 

In[463]:=nmax = 12; 

In[464]:- A = a/(nmax*1); (* grid spacing *) 

In[465]:! xgrid = Range[nmax]*A; (* the computational grid *) 


The matrix elements of the kinetic-energy operator in the position basis are calculated with a discrete sine 
transform, 


In[466]:=TM = SparseArray[Band[{1,1}] -> Range[nmax]^2*7^2*h^2/(2*m*a^2)] ; 
In[467]:; TP = FourierDST[TM, 1]; 


The matrix elements of the potential energy of in Equation (4.30) are, from In [440], 


In[468]:-W[x ] = m*g*x; (* the potential function *) 
1n[469]:-Wgrid = Map[W, xgrid];(* the potential on the computational grid *) 
In[470::- VP = SparseArray[Band[{1,1}] -> Wgrid]; 


The full Hamiltonian in the position representation is therefore 


In[471]:;-HP = TP + VP; 


and the ground-state energy and wavefunction coefficients in the position representation 


In[4721:=gsP = -Eigensystem[-N[HP], 1, 
Method -> {"Arnoldi", "Criteria" -> "RealPart", MaxIterations -> 10^6)]; 


The ground state energy is now less close to the exact value than before, due to the additional approximation 
of Equation (4.26): 


In[473)]:-gsP [[1, 11] 
0ut[473]-1. 86372 


We therefore need a larger Nmax to achieve the same accuracy as in the first numerical calculation. The great 
advantage of the present calculation is, however, that it is easily generalized to arbitrary potential-energy 
functions in In [468]. 

As shown in In[428], the wavefunction can be plotted approximately with 


In[474]:-y = Join[{{0,0}}, Transpose[{xgrid, gsP[[2,11]/Sqrt [A13], {{a,0}}]; 
In [475] := ListLinePlot [y] 


where we have "manually" added the known boundary values y(0) = y(a) = 0 to the list of numerically 
calculated wave-function values. 
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y(x) 


You can see that even with Nmax = 12 grid points this ground-state wavefunction (blue lines interpolating 

between blue calculated points) looks remarkably close to the exact one (orange line, see plot on page 80). 
If we need to go beyond linear interpolation, the precise wavefunction is calculated by converting to the 

momentum representation as in In [431] and multiplying with the basis functions as in In [460]: 


In[476]:= Q [n_, x ] = Sqrt[2/a]*Sin[n*n*x/a] ; 


In[477]:-1pO [x ] = FourierDST[gs[[2,1]],1] . Table[ọ[n, x], ín, nmax}]; 


exercises 


Q4.5 What is the probability to find the particle below x = 1 (i.e., below x = £) when it is in the ground 
state of the gravity well, Equation (4.30)? Calculate analytically, with numerical method l, and with 
numerical method Il. 


Q4.6 Calculate the mean height (X) in the ground state of the gravity well. How large is this quantity 
for a neutron in earth's gravitational field? Hint: see Quantum states of neutrons in the Earth's 
gravitational field by Valery V. Nesvizhevsky et al., Nature 415, pages 297—299 (2002). 


Q4.7 Calculate the energy levels and energy eigenstates of a particle in a harmonic potential, described by 
the Hamiltonian " 

Heb LET Í mug, (4.32) 

Do the calculated energy levels match the analytically known values? Hint: use the system of units 

given in In [409]ff with a length unit of £ = yħ/(mw), a mass unit M = m, and an energy unit 

E = ħw (i.e., the natural units). Choose the calculation box with size a = 10£ and shift the minimum 


of the harmonic potential to the center of the calculation box. 


4.1.8 the Wigner quasi-probability distribution [code] 


The Wigner quasi-probability distribution” of a wavefunction w(x) is a real-valued distribution in phase 
space defined as 
1 [? ; 
w= f ab yj tye, (4.33) 
— 00 
where k = p/h is the wavenumber, closely related to the momentum but in units of inverse length. W often 
makes it easier to interpret wavefunctions than simply plotting w(x), especially when w(x) is complex-valued. 
Time-dependent wavefunctions are often plotted as Wigner distribution movies, which makes it easier 
to track a particle as it moves through phase space. In the classical limit, the time-dependent Wigner 
distribution becomes the classical phase-space density that satisfies the Liouville equation. 
For a quick and easy evaluation of the Wigner distribution, we approximate the wavefunction as piecewise 
constant, using Equation (4.13): W(x) ~ V(xy;a]) = vw) / VA. where we have used the calculation grid 
spacing A = a/(Mmax + 1) and the nearest-integer rounding function [z] = round(z). This approximation 


"See https://en.wikipedia.org/wiki/Wigner quasiprobability distribution. 
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will be valid as long as |k| << T/A. Inserting it into Equation (4.33), and assuming that x = x; = jA is a 
grid point (í.e., we will only sample the Wigner function on the spatial grid of the calculation), we can split 
the integral over y into integrals over segments of length A, 


os A/2 f 
Wosk) == DU n dy pg — (mA + y)]U bs + (mA + y)]e? hh? 


m--—oo 


7. A/2 . 1 2 : A/2 
ia 5 / dyVxi-m)V (xm) e” mAH) S y VOj-m) W (Xj+m) gen dye? 
T —A/2 T eee 


m=-—00 m=- " » —A/2 
A Vm. 
vA TVA sin(kA)/k 
s min(j—1,nmax—j) 
sinc(kA) * — A2ikmA 
p 1 Vi-mVj+m8 , (4.34) 


m=— min(j—1,Mmax—J) 


where sinc(z) = sin(z)/z. The following Mathematica code converts a coefficient vector V of length Nmax 
into a function of the dimensionless momentum k = a- k that calculates W(x, k) for every grid point 
j=0,1,...,Mmax + 1 (including the boundary grid points that are usually left out of our calculations): 


In[478] :=WignerDistribution[v_?VectorQ] := With[{nmax = Length[v]}, 
Function[k, Evaluate [Sinc[k/(nmax-*1)]/7t**Table[ 
Sum [v[ [j-m]]*Conjugate [v [ Lj*m]]] *Exp [2*I*k*m/ (nmax*1)] , 
(m, -Min[j-1,nmax-j] ,Min[j-1,nmax-j]}]//Re//ComplexExpand, 1j,0,nmax*1)1]1] 


Notice that this function WignerDistribution returns an anonymous function (see section 1.5.3) of one 
parameter, which in turn returns a list of values. As an example of its use, we make a 2D plot of the 
Wigner distribution on the interval x € [Xmin, Xmax]:? 


In[479]:- WignerDistributionPlot[Y , 
{xmin_?NumericQ, xmax ?NumericQ) /; xmax > xmin] := 
Module[{nmax, qmax, w, W}, 

(* number of grid points *) 

nmax = Length[Y]; 

(* calculate the Wigner distribution *) 

w = WignerDistribution[Y] ; 

(* evaluate it on the natural dimensionless momentum grid *) 

qmax = Floor [nmax/2] ; 

W = Table[wlq*7], {q, -qmax, qmax}]; 

(* make a plot *) 

ArrayPlot[W, FrameTicks->Automatic, AspectRatio -> 1/GoldenRatio, 
DataRange->{{xmin, xmax} ,qmax*7t/(xmax-xmin) *{-1,1}}, 
ColorFunctionScaling -> False, 

ColorFunction -> (Blend[{Blue, White, Red}, (m*#+1)/2]&)]] 


Notice that we evaluate the Wigner distribution only up to momenta +EnmaxTT/(2a), which is the Nyquist 
limit in this finite-resolution system.? The color scheme is chosen such that the Wigner distribution values 


range Es +2] is mapped onto the colors blended from blue, white, and red, such that negative Wigner 


T 
values are shown in shades of blue while positive values are shown in shades of red. 
As an example, we plot the Wigner distribution of the numerical ground-state wavefunction shown on 
page 82: on the left, the exact distribution from Equation (4.33); on the right, the grid evaluation of 


In [478] and In[479] (calculated with nmax = 40) with 


In[480]:-WignerDistributionPlot[gsP[[2, 111, (0, a}] 


8 This procedure works for situations other than the usual Xmin = 0 and Xmax = a. 
9See https://en.wikipedia.org/wiki/Nyquist, frequency. 
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extension to density operators 


If the state of the system is not pure, but given as a density matrix p(x, x’) = (x||x’) instead of as a 
wavefunction w(x) = (x|y), then we do not have the option of plotting the wavefunction and we can only 
resort to the Wigner distribution for a graphical representation. 

Noticing that Equation (4.33) contains the term 


W(x — vy)" (x y) = (x — yip + y) = (x — y l6lx + y) = p(x- y.x4 y) (4.35) 


in terms of the pure-state density operator 6 = |y) (j|, the definition of the Wigner distribution is generalized 
to 


] JP 
W(x, k) = z dyp(x — y, x + y)e?^v. (4.36) 


—00 


We can make the same approximations as in Equation (4.34) to calculate the Wigner function on a spatial 
grid point x — x; [see Equation (4.15)]: 


1 ES A/2 l 
W(x, k) = x 5 Jas dye[x; — (mA + y), xj + (mA 4 y)]e?itm^ 


m--—oo 


oo ^ 
m E cm 
x Y P(Xjm: Xj+m)8 

T —A/2 


m--—oo 


. i (j—1,nmax—J) 
sinc(kA) ^" Y 2ikmA 


Ri-mj+me (4.37) 


m=— min(j—1,nmax—j) 


In analogy to In[478] we define 


In[4811:=WignerDistribution[R_ /; MatrixQ[R, NumericQ] && 
Length[R] == Length[Transpose[R]]] := 
With[{n = Length[R]}, 
Function[k, Evaluate [Sinc[k/(n+1)]/7*Table[ 
Sum [R [ [j -m, j*m] ] *Exp[2*I*k*m/(n*1)], 
{m,-Min[j-1,n-j] ,Min[j-1,n-j]}]//Re//ComplexExpand, {j,0,n+1}]]]] 


For a pure state, the density matrix has the coefficients Rj = vjvj, and the definitions of In[478] and 
In[481] thus give exactly the same result if we use 


In[4821:=R = KroneckerProduct[v, Conjugatel[v] ] 


In addition, the 2D plotting function of In[479] also works when called with a density matrix as first 
parameter. 


exercises 


Q4.8 Plot the Wigner distribution of the first excited state of the gravity well. What do you notice? 
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4.1.9 1D dynamics in the square well [code] 


Assume again a single particle of mass m moving in a one-dimensional potential, with the time-independent 
Hamiltonian given in Equation (4.1). The motion is again restricted to x € [0, a]. We want to study the 
time-dependent wavefunction w(x, t) = (x|v(t)) given in Equation (2.34), 


EXTR na). (4.38) 


The simplest way of computing this propagation is to express the wavefunction and the Hamiltonian in a 
particular basis and use a matrix exponentiation to find the time dependence of the expansion coefficients 
of the wavefunction. For example, if we use the finite-resolution position basis, we have seen on page 82 
how to find the matrix representation of the Hamiltonian, HP. For a given initial wavefunction represented 
by a position-basis coefficient vector vO we can then define 


IW(t)) = exp - 


mn[483]:=v [At_?NumericQ] := MatrixExp[-I*HP*At/fi].vO 


as the propagation over a time interval At = t — tg. If you try this, you will see that calculating |y(t)) in 
this way is not very efficient, because the matrix exponentiation is a numerically difficult operation. 
A much more efficient method can be found by using the Trotter expansion 


go) 2 ¿XIV 3x y e EÉDGDGYI|-E «DS x 7 EIN N-A... 


& es X aX (4.39) 


where the approximation is valid for small A since the neglected terms are of third and higher orders in A 
(notice that there is no second-order term in A!). Setting A = -it it) for some large integer M, as well as 
X =V and Y = T, we find 
" aM . E M Trotter Equation (4.39) . N 44M 
(e) = e (1) = [9] Ive» = [e *?| pro) 5 im [eee]. luco». 
—>00 

(4.40) 
This can be evaluated very efficiently. We express the potential Hamiltonian in the finite-resolution 
position basis, Equation (4.26), the kinetic Hamiltonian in the momentum basis, Equation (4.9), and the 
time-dependent wavefunction in both bases of Equation (4.17): 


lv) = 3 ruolo) = Do (OU) (4.41)a 
Vx Y Won (4.41)b 
Pa » Inn (441)c 


The expansion coefficients of the wavefunction are related by a type-I discrete sine transform, see Equa- 
tion (4.19), Equation (4.21), In[430], and In[431]. 

The great advantage of the diagonal matrices of Equation (4.41)b and Equation (4.41)c is that algebra 
with diagonal matrices is as simple as algebra with scalars, but applied to the diagonal elements one-by-one. 
In particular, for any diagonal matrix D = >>; d;l) Q| the integer matrix powers are Dex gt 


Hine 
and matrix exponentionals are calculated by exponentiating each diagonal element separately: exp(D) = 


mo D^/k! = 375 907; GU) UI) /k! = Oo di / K'U) | = 5; expli) UGI. As a result, 


Re 


aS e2WO9 jy (jl, (4.42) 


j=1 


and the action of the potential Hamiltonian thus becomes straightforward: 


2” \y(t)) = F wona Svon] = Y. e" voy) uy) Y o] 
ge jJ'-1 pod ; SV 


jj v 


(4.43) 
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which is an element-by-element multiplication of the coefficients of the wavefunction with the exponentials 
of the potential—no matrix operations are required. The expansion coefficients (position basis) after 
propagation with the potential Hamiltonian for a "time" step A/2 are therefore 


y= eon. (4.44) 


The action of the kinetic Hamiltonian in the momentum representation is found in exactly the same way: 


ety) = 3 eS inal 5 vai -Y [e uim. (4.45) 
n=1 n'—1 


n=1 S———— 
/ 
Un 


The expansion coefficients (momentum basis) after propagation with the kinetic Hamiltonian for a “time” 


step A are therefore 
ng? hn? 


ul, = eò ama? us. (4.46) 


We know that a type-I discrete sine transform brings the wavefunction from the finite-resolution position 
basis to the momentum basis and vice-versa. The propagation under the kinetic Hamiltonian thus consists 
of 


1. a type-I discrete sine transform to calculate the coefficients vj > Un, 
2. an element-by-element multiplication, Equation (4.46), to find the coefficients Up — uh, 
3. and a second type-I discrete sine transform to calculate the coefficients uf, > vi. 


Here we assemble all these pieces into a program that propagates a state |y(to)), which is given as a 
coefficient vector V in the finite-resolution position basis, forward in time to t = ty + At. First, for reference, 
a procedure for the exact propagation by matrix exponentiation and matrix-vector multiplication, as in 
In[483]: 


In[484]:- VP = SparseArray[Band[{1,1}]->Wgrid] ; 

In[485]: TM = SparseArray [Band[{1, 1}] ->Range [nmax] ^2*7^2*fi72/ (2*m*a^2)] ; 

In[486]:=TP = FourierDST[TM, 1]; 

In [487] := HP TP + VP: 

In[488]:- propExact [At ?NumericQ, vO_ /; VectorQ[vO, NumericQ]] := 
MatrixExp[-I*HP*N[At/h]].vO 


Next, an iterative procedure that propagates by M small steps via the Trotter approximation, Equation (4.39): 


In[489]:- propApprox[At. ?NumericQ, M. Integer /; M >= 1, 
vO. /; VectorQ[vO, NumericQ]] := 

Module[{A, Ke, Pe2, propKin, propPot2, prop}, 
* compute the À constant *) 
A = -I*N[At/(M*5)]; 
* compute the diagonal elements of exp[A*T] *) 
Ke = Exp[A*Range [nmax] ^2*7^2*h72/ (2xm*a^2)] ; 
* propagate by a full time-step with T *) 
propKin[v_] := FourierDST[Ke*FourierDST[v, 1], 1]; 
* compute the diagonal elements of exp[A*V/2] *) 
Pe2 = Exp[A/2*Wgrid]; 
* propagate by a half time-step with V *) 
propPot2[v_] := Pe2*v; 
(* propagate by a full time-step by H=T+V *) 
(* using the Trotter approximation *) 
prop[v.] := propPot2[propKin[propPot2[v]]]; 
(* step-by-step propagation *) 
Nest[prop, v0, M]] 
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Notice that there are no basis functions, integrals, etc. involved in this calculation; everything is done in 
terms of the values of the wavefunction on the grid x... Xama. This efficient method is called split-step 
propagation. 

The Nest command “nests” a function call: for example, Nest [£,x,3] calculates f(f(f(x))))). We 
use this on line 18 of In[489] to repeatedly propagate by small time steps via the Trotter approximation. 
Since this algorithm internally calculates the wavefunction at all the intermediate times t = to + 7(t — to) 
for m —1,2,3,...., M, we can modify our program in order to follow this time evolution. To achieve this 
we simply replace the Nest command with NestList, which is similar to Nest but returns all intermediate 
results: for example, NestList[f,x,3] returns the list (x, f(x), f(f(x)), f(f(f(x)))). We replace last 
line of the code above with 


Transpose[{Range[0, M]/M*At, NestList[prop, vO, M]}]] 


which now returns a list of pairs containing (i) the time and (ii) the wavefunction at the corresponding time. 


example: bouncing in the gravity well 


As an example of particle dynamics, we return to the gravity well of section 4.1.7. Classically, if we drop a 
particle from height xy at t = O under the influence of gravity, then its trajectory is x(t) = xo — 3gt?, until 
it reaches the earth's surface (x = 0) at time ty = y 2x0/9. We plot this classical bouncing trajectory for 
a scaled starting height xy = 15 with 


mn[490]:=With[{x0 = 15, At = 50}, {t1 = Sqrt[2*x0/gl7, 
Plot [0 = Mod[t, 261, =-£100*2/2, (t, 0, At] 


In order to simulate a quantum particle bouncing along this trajectory, we start at the same height xy = 15 
but assume that the particle initially has a wavefunction of root-mean-square width o = 1: the initial state 
in the position basis is 


In[491]: XO = 15; (* starting height *) 
In[492]:- 0 = 1; (* starting width *) 
In[493]:=t1 = Sqrt[2*x0/g] ; (* classical bounce time *) 


In[494]:- vv = Normalize[N[Exp[-((xgrid-xO0)/(2*0))^2]]]; (* starting state *) 
In[495] :- ListLinePlot [Join[{{0,0}}, Transpose [{xgrid, vv/Sqrt [A] }] ,{{a,0}}], 
PlotRange->A11] 


y(x) 


We propagate this particle in time for At = 50 time units, using M = 1000 time steps, and plot the 
time-dependent density p(x, t) = |w(x, t)? = |(x|w(t)) |? using the trick of Equation (4.13): 


In[496]:=With[{At = 50, M = 1000}, 
p = ArrayPad[Abs[propApprox[At, M, vv][[A11,211172/A, {{0, 0}, (1, 111; 
ArrayPlot [Reverse[Transpose[p]], DataRange -> {{0, At}, {0, a}}] 


N 


w 
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The orange overlaid curve shows the classical particle trajectory from In [490], which the quantum particle 
follows approximately while self-interfering during the reflections. 

To study the correspondence between classical and quantum-mechanical motion more quantitatively, 
we can calculate and plot time-dependent quantities such as the time-dependent mean position: using 
Equation (4.24), 


Nmax Nmax 


(DE) = WORE = (91 | S "Ust | (0) = 2 xlv. (4.47) 


j=1 


In[497]:=With[{At = 50, M = 1000}, 
ListLinePlot [{#[[1]], Abs [#[[2]]]-2.xgrid} & /@ propApprox[At, M, vv]]] 


Here the quantum deviations from the classical trajectory (orange) become apparent. 


4.1.10 1D dynamics in a time-dependent potential 


While the direct propagation of Equation (2.34) only works for time-independent Hamiltonians, the split-step 
method of In[489] can be extended to time-dependent Hamiltonians, in particular to time-dependent 
potentials W(x, t). For this, we assume that the potential varies slowly enough in time that it is almost 
constant during a Trotter step At/M; this assumption usually becomes exact as M — oo. 


In[498]:- propApprox [Wt_, 
At ?NumericQ, M Integer /; M >= 1, 
vO_ /; VectorQ[vO, NumericQ]] := 
Module[{A, Ke, propKin, propPot2, prop}, 
(* compute the A constant *) 
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A = -I*N[At/ (*h)] ; 

(* compute the diagonal elements of exp[A*T] *) 

Ke = Exp[A*Range [nmax] ^2*7^2/2] ; 

(* propagate by a full time-step with T *) 

propKin[v.] := FourierDST[Ke*FourierDST[v, 1], 1]; 

(* propagate by a half time-step with V *) 

(* evaluating the potential at time t *) 

propPot2[t , v. ] := Exp[A/2* (Wt [4 , t] £/Oxgrid) ] *v ; 

(* propagate by a full time-step by H=T+V *) 

(* using the Trotter approximation *) 

(* starting at time t *) 

proplv_, t_] := propPot2[t+3At/(4M), propKin[propPot2[t+At/(4M, v]]]; 
(* step-by-step propagation *) 

Transpose[{Range[0, M]/M*At, FoldList[prop, v0, Range[0,M-1]/M*At])]] 


The definition of propApprox now needs a time-dependent potential Wt [x,t] that it can evaluate 
as the propagation proceeds. This potential must be specified as a pure function with two arguments, 
as in the example below. 


The exponentials for the potential propagation, calculated once-and-for-all on line 11 of In[489], 
are now re-calculated in each call of the propPot2 function. 


In the Trotter propagation step of Equation (4.40) we evaluate the potential twice in each propagation 
interval [t, t + At/M]: once at t+ IAt/M for the first half-step with the potential operator V, and 
once at t+ 2At/M for the second half-step. 


On line 19 of In[498] we have replaced NestList by FoldList, which is more flexible: for example, 
FoldList [f,x,{a,b,c}] calculates the list (x, f (x, a), f (f(x, a), b), f(f(f(x, a), b), c)). By giving 
the list of propagation interval starting times as the last argument of FoldList, the prop function is 
called repeatedly, with the current interval starting time as the second argument. 


As an example, we calculate the time-dependent density profile under the same conditions as above, except 
that the gravitational acceleration is modulated periodically: W(x, t) = W(x)-[1+A-sin(wt)]. The 
oscillation frequency w = T/t is chosen to drive the bouncing particle resonantly and enhance its amplitude. 
This time-dependent potential is passed as the first argument to propApprox: 


In[499]:-With[(A = 0.1, w = m/ti, At = 50, M = 1000}, 


Wt[x , t_] = W[x]*(1 + A*Sin[w*t]) ; 
p = ArrayPad[Abs [propApprox[Wt, At ,M,vv] [[A11,2]]]~2/A, (10, 0}, (1, 1331; 
ArrayPlot [Reverse[Transpose[p]], DataRange -> 110, At}, 10, a}}] 
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The increase in bouncing amplitude can be seen clearly in this density plot. 
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exercises 


Q4.9 Convince yourself that the Trotter expansion of Equation (4.39) is really necessary, i.e., that 
eX*Y 4 eXeY if X and Y do not commute. Hint: use two concrete non-commuting objects X and 
Y, for example two random 2 x 2 matrices as generated with RandomReal [{0,1},{2,2}]. 


Q4.10 Given a particle moving in the range x € [0, a] with the Hamiltonian 


h q? 


H= "ve + Wo sin(10mx/a), (4.48) 


logs i ; ii ; We _ (xcaf2y? 
compute its time-dependent wavefunction starting from a "moving Gaussian" w(t =0) xe s? e 


with ø = 0.05a and k = 100/a. Study (X)(t) using first Wo = 0 and then Wo = 50007. Hint: use 
natural units such that a=m=f=1 for simplicity. 


ikx 


4.2 Many particles in one dimension: dynamics with the non-linear Schrödinger 
equation 


The advantage of the split-step evolution of Equation (4.40) becomes particularly clear when the system's 
energy depends on the wavefunction in a more complicated way than in the usual time-independent 


Schrödinger equation. A widely used example is the nonlinear energy functional’? 
h2 oo : oo m co 
Em== | aora S am. (nao) 
Ekin [y] Epot [v] Eint [v] 


in which the last term describes the mean-field interactions between N particles that are all in wavefunction 
V (x) (normalized to [°° dx|V(x)|? = 1), and which are therefore in a joint product wavefunction y (x)9"" 
(see Equation (2.39)). Each particle sees a potential Vine(x) = $|V(x)|? generated by the average density 
(N — 1)|W(x)|? of other particles with the same wavefunction, usually through collisional interactions. In 
three dimensions, the coefficient k = (N — 1) x 4rħ?as/m approximates the mean-field s-wave scattering 
between a particle and the (N — 1) other particles, with s-wave scattering length as (see section 4.4); in 
the present one-dimensional example, no such identification is made. 

In order to find the ground state (energy minimum) of Equation (4.49) under the constraint of 
wavefunction normalization f^. dx|q(x)|? = 1, we use the Lagrange multiplier" method: using the 
Lagrange multiplier u called the chemical potential, we conditionally minimize the energy with respect to 
the wavefunction by setting its functional derivative? 


RU (eta - T xo?) = o + VW) +2 bb) WO) — uw) =0 (4.50) 
by" (x) yi pa ^m dio ee 


to zero. This yields the non-linear Schródinger equation 


nod 
| + V(x)4 «eof vos = ux), (4.51) 
——— 


2m dx? 
Vere(x) 


also called the Gross—Pitaevskii equation for the description of dilute Bose—Einstein condensates. By 
analogy to the linear Schródinger equation, it also has a time-dependent form for the description of 
Bose-Einstein condensate dynamics, 


ose. 0 | meo, ; 
"a =| oma ^ Vo 0 + ls OP | t). (4.52) 
Vert (x,t) 


10A functional is an operation that calculates a number from a given function. For example, E[yp] : L? — R converts a 
wavefunction Y € L? into an energy E € IR. See https://en.wikipedia.org/wiki/Functional (mathematics). 

11See https://en.wikipedia.org/wiki/Lagrange multiplier. 

12See nttps://en.wikipedia.org/wiki/Functional derivative. 
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For any & Æ 0 there is no solution of the form of Equation (4.38). But the split-step method of 
Equation (4.40) can still be used to simulate Equation (4.52) because the wavefunction-dependent effective 
potential V(x, t) is still diagonal in the position representation. We extend the Mathematica code of 
In[498] by modifying the propPot2 method to include a non-linear term with prefactor k (added as an 
additional argument to the propApprox function), and do not forget that the wavefunction at grid point x; 


is Vos) = vi/ VA: 


In[500]:=propApprox[Wt_, k ?NumericQ, At ?NumericQ, M Integer /; M >= 1, 
vO_ /; VectorQ[vO, NumericQ]] := 


and 


propPot2[t , v ] := Exp[A/2*C(Wt [,t]&/Oxgrid) + k*Abs[v]^2/A)] *v ; 


As an example, we plot the time-dependent density for the time-independent gravitational well W(x, t) — 
mgx and k = —3- (gh*/m)!/? (attractive interaction), k = 0 (no interaction), k = +3 - (gh^/m)!/? 
(repulsive interaction): 


In[501]:-With[(K = -3 * (g*h^4/m)^(1/3), At = 50, M = 1073}, 
p = ArrayPad [Abs [propApprox [W[#1]&,«, At ,M, vv] [[A11,2]]]~2/A,{{0,0},{1,1}}]; 
ArrayPlot [Reverse[Transpose[p]], DataRange -> {{0, At}, {0, a}}] 


Observations: 
e The noninteractive case (K = 0) shows a slow broadening and decoherence of the wavepacket. 


e Attractive interactions (K < 0) make the wavepacket collapse to a tight spot and bounce almost like 
a classical particle. 


e Repulsive interactions (k > 0) make the wavepacket broader, which slows down its decoherence. 


exercises 


Q4.11 Dimensionless problem (a=m=fi=1): Given a particle moving in the range x € [0, 1] with the non-linear 


Hamiltonian a 


- 1d xcd4V* 
Å = HQ | = 1| +K|v(x)|?, (4.53) 


2 dx? 


W(x) 
do the following calculations: 

1. Plot the potential W(x) for Q = 1 and 6 = 1 (use k = 0). What are the main characteristics 
of this potential? Hint: compute W(1), W'(1), W(3 +6), W'(3 + à). 

2. Calculate and plot the time-dependent density |w(x, t)|? for Q = 250, 6 = i and k — 0, starting 
from Yo(x) x exp |- (9? with xo = 0.2694 and o = 0.0554. Calculate the probabilities 
for finding the particle in the left half (x < 4) and in the right half (x > 5) up to t = 20. What 
do you observe? 


3. What do you observe for k = 0.5? Why? 


N 
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4.2.1 imaginary-time propagation for finding the ground state of the non-linear 
Schródinger equation [code] 


In the previous section we have looked at the dynamical evolution of a Bose-Einstein condensate with the 
time-dependent nonlinear Schródinger equation (4.52), which could be performed with minimal modifications 
to previous Mathematica code. The time-independent nonlinear Schródinger equation (4.51), on the other 
hand, seems at first sight inaccessible to our established methods: it is an operator eigenvalue equation, 
with the operator acting non-linearly on the wavefunction and thus invalidating the matrix diagonalization 
method of section 2.2. How can we determine the ground state of Equation (4.51)? 

You may remember from statistical mechanics that at temperature T, the density operator of a system 


governed by a Hamiltonian H is 
e BÁ 
0(0) = == 4.54 
AB) = Fm (4.54) 


with 8 = 1/(kgT) the reciprocal temperature in terms of the Boltzmann constant kg = 1.380 648 8(13) x 1073 J/K. 


The partition function Z(8) = Tr e 6% ensures that the density operator has the correct norm, Tr 6(G) = 1. 
We know that at zero temperature the system will be in its ground state |y), 1° 


au &(8) = ml. (4.55) 


If we multiply this equation by an arbitrary state |y) from the right, we find 


Jim AOW) = ro). (4.56) 
Assuming that (|W) Z 0 (which is true for almost all states |w)), the ground state is therefore 
lims- AOW) — 1 1 gg 
= = | 4. 
i (iv) Id) ot ZB) o A oe 


This means that if we take almost any state |) and calculate limg_00 zig e Php), we find a state that is 


Wy and ZB are merely scalar prefactors). But we already 


know how to do this: the wavefunction e-P p) is calculated from |y) by imaginary-time propagation. |n 
fact the split-step algorithm of section 4.1.9 remains valid if we replace i(t — t9)/h => B. The advantage of 
Equation (4.57) over the matrix method of section 2.2 is that the former can be implemented even if the 
Hamiltonian depends on the wavefunction, as in Equation (4.51). The only caveat is that, while regular 
time propagation (section 4.1.9) is unitary, imaginary-time propagation is not. The wavefunction must 
therefore be re-normalized after each imaginary-time evolution step (with the Normalize function). 

To implement this method of calculating the ground state by imaginary-time propagation, we set 
B = M-óf and modify Equation (4.57) to 


proportional to the ground state (the prefactors 


Trotter Equation (4.39) 


^ 21M BY i Bo M 

lim e-M4 y) — li | FP + lim li | 20.007 ¿20 
ALS rum e Iv) ene ee vr og 
(4.58) 


In practice we choose a small but finite "imaginary-time" step 66, and keep multiplying the wavefunction by 
e- 2 e- 961 e- ZY until the normalized wavefunction no longer changes and the infinite- limit (M-à8 => 00) 
has effectively been reached. 


In[502]1:-groundstate[g ?NumericQ, ôB ?NumericQ, tolerance : 10^-10] := 
Module[{Ke, propKin, propPot2, vO, ył, 
(* compute the diagonal elements of exp[-5*T] *) 
Ke = Exp[-5f*Range[nmax]^2*7^2/2] //N; 
(* propagate by a full imaginary-time-step with T *) 
propKin[v_] := Normalize[FourierDST [Ke*FourierDST[v,1],1]]; 
(* propagate by a half imaginary-time-step with V *) 
propPot2[v. ] := Normalize[Exp[-50/2*(Wgrid + g*(nmax+1)*Abs[v]72)]x*v]; 
(* propagate by a full imaginary-time-step by *) 


13For simplicity we assume here that the ground state is non-degenerate. 
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(* H=T+V using the Trotter approximation *) 

prop[v.] := propPot2[propKin[propPot2[v]l]; 

(* random starting point *) 

vO = Normalize@RandomComplex[{-1-1,1+I}, nmax]; 

(* propagation to the ground state *) 

y = FixedPoint [prop, v0 ,SameTest->Function[{v1,v2},Norm[vi-v2]<tolerance]] ; 
(* return the ground-state coefficients *) 


yl 


The last argument, tolerance, is optional and is given the default value 107% if not specified (see 
section 1.6.5). The FixedPoint function is used to apply the imaginary-time propagation until the result 
no longer changes (two consecutive results are considered equal if the function given as SameTest returns 
true when applied to these two results). 

Multiplying Equation (4.51) by sj*(x) and integrating over x gives 


h2 oo oo oo 
p= favors OS E (4.59) 
oo —00 —00 
Ekin [v] Epot [Y] 2Ent [V] 


which is very similar to Equation (4.49) apart from a factor of two for Eint. We use this to calculate the 
total energy and the chemical potential in 1n[502] by replacing lines 16ff with 


(* energy components *) 

Ekin = 71172/2*Range [nmax] ^2. Abs [FourierDST[y,1]1^2; 
Epot = Wgrid.Abs[yl^2; 

Eint = (g/2) qmax*1)*Total[Abs[y]l^4]; 

(* total energy *) 

Etot = Ekin + Epot + Eint; 

(* chemical potential *) 

p » Ekin + Epot + 2*Eint; 

(* return energy, chemical potential, coefficients *) 
iEtot, p, vH 


and adding the local variables Ekin, Epot, Eint, Etot, and p on line 2. 
As an example we calculate the ground-state density for the gravity well of section 4.1.7 with three 
different values of the interaction strength « [in units of (gfi* / m)!/3]: 


In[508]:;-With[(Kk = 3 * (g*fi^4/m)^(1/3), 6B = 107-4}, 
{Etot, p, y) = groundstatelóf, K]; 
ListLinePlot[Join[{{0, 033, Transpose[{xgrid,Abs[y]72/A}], fta, 013, 
PlotRange -> All, PlotLabel -> {Etot, p}]] 


—— K=10: Etot=3.63534, u=4.95199 
—— K=0: Etot=1.85576, v=1.85576 
—— Kk=-10: Etot=-3.44442, y=-12.1981 


| (x) |? 


Note that for k = 0 the Gross-Pitaevskii equation is the Schrodinger equation, and the chemical potential 
is equal to the total energy, matching the exact result of Out [450]. 
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exercises 


Q4.12 Dimensionless problem (a=m=fi=1): Given a particle moving in the range x € [0, 1] with the non-linear 
Hamiltonian 


a 1d N " 
H= 308 + 2500 | x — 5 + KIYE, (4.60) 
do the following calculations: 


1. For & = 0 calculate the exact ground state |C) (assuming that the particle can move in the whole 
2 
) | / v av 2m and 


1 
So 
20 


domain x € R) and its energy eigenvalue. Hint: assume C(x) = exp - ( 


find the value of ø that minimizes (C[AL|C). 


2. Calculate the ground state limg—oo eBA|C) and its chemical potential by imaginary-time propa- 
gation (with normalization of the wavefunction after each propagation step), using the code 
given above. 


3. Plot the ground-state density for different values of «K. 


4. Plot the total energy and the chemical potential as functions of k. 


4.3 several particles in one dimension: interactions 


In section 4.2 we have studied a simple mean-field description of many-particle systems, with the advantage 
of simplicity and the disadvantage of not describing inter-particle correlations. Here we use a different 
approach that captures the full quantum mechanics of many-particle systems (including correlations), with 
the disadvantage of much increased calculation size. 

We have seen in section 2.4.2 how to describe quantum-mechanical systems with more than one degree 
of freedom. This method can be used for describing several particles moving in one dimension. In the 
following we look at two examples of interacting particles. 

When more than one particle is present in a system, we must distinguish between bosons and fermions. 
Whenever the Hamiltonian is symmetric under particle exchange (which is the case in this section), each 
one of its eigenstates can be associated with an irreducible representation of the particle permutation 
group. For two particles, the only available choices are the symmetric and the antisymmetric irreducible 
representations, and therefore every numerically calculated eigenstate can be labeled as either bosonic 
(symmetric) or fermionic (antisymmetric). For more particles, however, other irreducible representations 
exist,'* meaning that some numerically calculated eigenstates of the Hamiltonian may not be physical at all 
because they are neither bosonic (fully symmetric) nor fermionic (fully antisymmetric). 


4.3.1 two identical particles in one dimension with contact interaction [code] 


We first look at two identical particles moving in a one-dimensional square well of width a and interacting 
through a contact potential Vu, Xo) = K x (xı — x»). Such potentials are a good approximation of the 
s-wave scattering interactions taking place in cold dilute gases. The Hamiltonian of this system is^ 


^ mre? 9? 

H = 2m EB t sz] 1 V(x) 1 V(x) 1 KÓ X X2), (4.61) 
f v Hint 
+ 


where V(x) is the single-particle potential (as in section 4.1) and k is the interaction strength, often related 
to the s-wave scattering length as. For the time being we do not need to specify whether the particles are 
bosons or fermions. 

We describe this system with the tensor-product basis constructed from two finite-resolution position 
basis sets: 


Li, J2) = V1) O Le) for J1,2 € 11,2,3,... , Nmax}. (4.62) 


M4See https://en.wikipedia.org/wiki/Irreducible representation. 
l5Notice that we write this Hamiltonian in an abbreviated form. The full operator form, with terms similar to Equation (4.2) 
but containing double integrals over space, is cumbersome to write (see Equation (4.63)). 
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Most of the matrix representations of the terms in Equation (4.61) are constructed as tensor products of 
the matrix representations of the corresponding single-particle representations since Î= 9891+18 
and V = V, &G 1-- 16 V5. The only new element is the interaction Hamiltonian Hint. Remembering that its 
formal operator definition is 


Reo f esee [I0 0 b)]5(a — x2) [es 0 Gal] (4.63) 
(while Equation (4.61) is merely a shorthand notation), we calculate its matrix elements in the finite-precision 
position basis with 

(ail Pil J) =f 


—00 


dx dx Ga ba) Ge be)66a — x2) (1141) Velo) = ef dx; (x) 0; (99; (99; (x). 


(4.64) 
These quartic overlap integrals can be calculated by a four-dimensional type-l discrete sine transform (see 
Equation (4.20) and Q4.13), 


f dx$ j, (x); (290, (x) Bj, (x) = 
0 
1 Nmax 


23 X Xmj XmjXnjXnj es sb Om En3,n-eng T On, Hng, no ns 


m,no,ns,na—1 


E Ôn, na--na--na d Ón, m --ns-- na m Ôn, m+n2+m E Ôn, m -na--ns ' (4.65) 


which we evaluate in Mathematica very efficiently and all at once with 


In[504]:- overlap4 = FourierDST[Table[KroneckerDelta[n1+n2,n3+n4] 
+KroneckerDelta[n1+n3,n2+n4]+KroneckerDelta[n1i+n4,n2+n3] 
-KroneckerDelta [n1 ,n2+n3+n4] -KroneckerDelta[n2,n1+n3+n4] 
-KroneckerDelta[n3,n1+n2+n4] -KroneckerDelta[n4,n1+n2+n3], 
(ni,nmax),(n2,nmax),Íín3,nmax),Íín4,nmax)],1]/(2*a); 


Mathematica code As before, we assume that the quantities a, m, and fi are expressed in a suitable 
set of units (see section 4.1.1). First we define the grid size and the unit operator id acting on a single 
particle: 


In[505]:=m = fi = 1; (* for example *) 
In[506]:-a = 1; (* for example *) 
In[s07]:=nmax = 50; (* for example *) 


In[508]:- A = a/(nmax*1); 
In[5091:=xgrid = Range[nmax]*A; 
In(510]:=id = IdentityMatrix[nmax, SparseArray] ; 


The total kinetic Hamiltonian is assembled via a Kronecker product (tensor product) of the two single-particle 
kinetic Hamiltonians: 


In[511]:- TTM = SparseArray [Band [{1,1}] ->Range [nmax] ^2*7^2*h^2/ (2xm*a^2)] ; 
In[5121:=T1P = FourierDST[T1M, 1]; 
In[513]:=TP = KroneckerProduct[T1P, id] + KroneckerProduct[id, T1P]; 


The same for the potential Hamiltonian (here we assume no potential, that is, a square well; but you may 
modify this): 


In[514]:-W[x. ] = 0; 

Inls151:=Wgrid = W /@ xgrid; 

In[516]:- VÍ P. = SparseArray [Band[{1,1}]->Wgrid] ; 

In[517]:=VP = KroneckerProduct[V1P, id] + KroneckerProduct lid, V1P]; 
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The interaction Hamiltonian is constructed from In[504] with the ArrayFlatten command, which flattens 
the combination basis set |1) & |j?) into a single basis set |j1, j2), or in other words, which converts the 


Nmax X Nmax X Nmax X Nmax- matrix overlap4 into a n2... x Nac matrix: 


In[518]:-HintP = ArrayFlatten[overlap4]; 


The full Hamiltonian, in which the amplitude of the potential can be adjusted with the prefactor (2 and the 
interaction strength with g, is 


In[519]:=HP[Q_, k_] = TP + OxVP + k*HintP; 


We calculate eigenstates (the ground state, for example) with the methods already described previously. 
The resulting wavefunctions are in the tensor-product basis of Equation (4.62), and they can be plotted 
with 


In[520]:- plot2Dwf [. ] := Module[{wp1,2}, 
(* make a square array of wavefunction values *) 
ipi = ArrayReshape[w, (nmax,nmax]]; 
(* add a frame of zeros at the edges *) 
(* representing the boundary conditions *) 
2 = ArrayPad[yp1, 1]; 
(* plot *) 
ArrayPlot [Reverse [Transpose hp2]]] 


Assuming that a given wavefunction 1p is purely real-valued,'° we can plot it with 


In[521] := plot2Dwf [v/A] 


Here we plot the four lowest-energy wavefunctions for Q = 0 (no potential, the particles move in a simple 
infinite square well) and k = +25 (repulsive interaction), using Mmax = 50 grid points, with the title of each 
panel showing the energy and the symmetry (see below). White corresponds to zero wavefunction, red is 
positive W(x, X») > 0, and blue is negative W(%, x2) < 0. 


E=21.4091, symmetry=1 E=24.674, symmetry=-1 E-42.9369, symmetry=1 E=49.348, symmetry=-1 
1 1. 1: 


We can see that in the ground state for g > O the particles avoid each other, i.e., the ground-state 
wavefunction w(x,, x») is reduced whenever x; = x». 
And here are the lowest four energy eigenstate wavefunctions for k — —10: 


16The eigenvectors of Hermitian operators can always be chosen to have real coefficients. Proof: Suppose that H - Y = Ep 
for a vector Y with complex entries. Complex-conjugate the eigenvalue equation, Hi E = EN”; but Ht = H and E* = E, 
and hence Y is also an eigenvector of H with eigenvalue E. Thus we can introduce two real-valued vectors y, = p+ y and 
y; = ¡(Y — Y), representing the real and imaginary parts of Y, respectively, which are both eigenvectors of H with eigenvalue 
E. Mathematica (as well as most other matrix diagonalization algorithms) automatically detect Hermitian matrices and return 
eigenvectors with real coefficients. 
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E=-20.2264, symmetry=1 E=-9.55231, symmetry=1 E=6.92009, symmetry=1 E=24.674, symmetry-- 1 
de d. 1. 


0.8 0.8 


0.6 0.6 


We can see that in the ground state for k < 0 the particles attract each other, /.e., the ground-state 
wavefunction Y(x1,x2) is increased whenever x, = Xo. We also notice that the second-lowest state for 
k = +25 is exactly equal to the fourth-lowest state for k = —10: its wavefunction vanishes whenever 
X, = X% and thus the contact interaction has no influence on this state. 

In the above plots we have noted the symmetry of each eigenstate (symmetric or antisymmetric with 
respect to particle exchange), which is calculated with the integral 


+1 for symmetric states (06,53) = V Ga. X2), 


Sly] = » dy dxo* (x1, x») (o, x1) = | (4.66) 


—1 for antisymmetric states Y(x2, x1) = —Y(x1, X2). 


In Mathematica, the mirrored wavefunction 1j Co, x1) is calculated with the particle interchange operator = 
defined as 


In{522]:=E = ArrayFlatten[SparseArray[{i_,j_,j_,i_} -> 1, ínmax, nmax, nmax, nmax}]]; 


such that y(x, x1) = 6e,» |V) = (x, x|}. The symmetry of a state, defined in Equation (4.66), is 
therefore the expectation value of the = operator: 


In[523]:- symmetry [v. ] := Re[Conjugatelv].(Z.v)] 


Here we show the numerical energy eigenvalues of the contact interaction Hamiltonian, colored according 
to their symmetry: red dots indicate symmetric states (S = +1), whereas blue dots indicate antisymmetric 
states (S — —1). 


In this representation it becomes even clearer that antisymmetric states are independent of the contact 
interaction because their wavefunction vanishes whenever x, = x (see Q4.16). 


bosons and fermions 


The reason why every state in the above calculation is either symmetric or antisymmetric with respect to 
particle interchange is that the Hamiltonian In[519] commutes with the particle interchange operator 
In [522] (see Q4.15). As a result, Á and = can be diagonalized simultaneously. 

We notice that = has only eigenvalues +1: 


N 


w 


N 
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In[5224]:- Z //Eigenvalues //Counts 
Out [524]=<| -1 -> 1225, 1 -> 1275 |» 


The Nmax(Nmax + 1)/2 eigenvalues +1 correspond to eigenvectors that are symmetric under particle 
interchange and form a basis of the symmetric subspace of the full Hilbert space (bosonic states); 
the Mmax(Mmax — 1)/2 eigenvalues —1 correspond to eigenvectors that are antisymmetric under particle 
interchange and form a basis of the antisymmetric subspace of the full Hilbert space (fermionic states). 
By constructing a matrix whose rows are the symmetric eigenvectors, we construct an operator fl; that 
projects from the full Hilbert space onto the space of symmetric states, 


In[s251:=€ = Transpose[Eigensystem [Normal [=]]]; 
In[526]:-T]s = Selectle, #[[1]] == 1 &][[A11, 2]] //Orthogonalize //SparseArray; 


Similarly we construct a projector Fl, onto the space of antisymmetric states, 


In[527]:-]Ta = Select[e, #[[1]] == -1 €] [[411, 21] //Orthogonalize //SparseArray; 


With the help of these projectors, we define the Hamiltonians of the system restricted to the symmetric or 
antisymmetric subspace, respectively: 


In[5281:=HPs[O_, 
In[529] :- HPa [ Q.. , 


Is.HP[O,k].Transpose[ITs] ; 


k_] 
K_] IIa. HP[O, k] . Transpose [ITa] ; 


If the two particles in the present problem are indistinguishable bosons, then they can only populate the 
symmetric states (red dots in the above eigenvalue plot). We calculate the m lowest energy eigenstates of 
this symmetric subspace with the restricted Hamiltonian HPs: 


In[530]:- Clear [sgs] ; 

In[5381]1:- sgs [O. ?NumericQ, k ?NumericQ, m Integer /; m >= 1] := sgs[O, x, m] = 
{-#[[1]], €L[2]].TIs) &[Eigensystem[-HPs[N[O], N[k]], m, 
Method -> {"Arnoldi", "Criteria" -> "RealPart", MaxIterations -> 10^6)]] 


Notice that we convert the calculated eigenstates back into the full Hilbert space by multiplying the results 
with TIs from the right. 

In the same way, if the two particles in the present problem are indistinguishable fermions, then they 
can only populate the antisymmetric states (blue dots in the above eigenvalue plot). We calculate the m 
lowest energy eigenstates of this antisymmetric subspace with the restricted Hamiltonian HPa: 


In[532]:- Clear [ags] ; 

In[533]:-ags [O. ?NumericQ, k ?NumericQ, m Integer /; m >= 1] := ags[O, x, m] = 
{-#[[1]], 4[[21] .Ma} &[Eigensystem[-HPa[N[O], N[k]], m, 
Method -> {"Arnoldi", "Criteria" -> "RealPart", MaxIterations -> 10^6)]] 


As an example, here we calculate the six lowest energy eigenvalues of the full Hamiltonian for Q = 0 and 
K =D: 


In(s341:=8s[0, 5, 6][[1]] //Sort 
0ut[534]- (15.2691, 24.674, 32.3863, 45.4849, 49.348, 58.1333} 


The six lowest symmetric energy eigenvalues are 


In[535]:- sgs [O, 5, 6]1[[11] //Sort 
0ut[535]- (15.2691, 32.3863, 45.4849, 58.1333, 72.1818, 93.1942} 


The six lowest antisymmetric energy eigenvalues are 
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1 |Ints361:=ags[0, 5, 6][[11] //Sort 
2 |0ut[536]- (24.674, 49.348, 64.1524, 83.8916, 98.696, 123.37} 


From Out [535] and Out [536] we can see which levels of Out [534] are symmetric or antisymmetric. 


exercises 


Q4.13 


Q4.14 


Q4.16 


Q4.17 


Show that Equation (4.65) is plausible by setting nmax=3, evaluating 1n [504], and then comparing 
its values to explicit integrals from Equation (4.65) for several tuples (j1, J2, ja. Ja). Hint: use a=1 for 
simplicity. 


In the problem of section 4.3.1, calculate the expectation value of the inter-particle distance (y — xo), 
and its variance (bx — x2)?) — (xı — x2), in the ground state as a function of « (still keeping Q = 0). 
Hint: Using Equation (4.24), the position operators x1 and x2 are approximately 


In[537]:=x = SparseArray [Band [11,1)]->xgridl] ; 
In[538]:=x1 = KroneckerProduct[x, id]; 
In[539]:=x2 = KroneckerProduct lid, x]; 


Show in Mathematica (by explicit calculation) that the Hamiltonian In[519] commutes with the 
particle interchange operator In[522]. Hint: use the Norm function to calculate the matrix norm of 
the commutator. 


Show in Mathematica (by explicit calculation) that the antisymmetric Hamiltonian In [529] does not 
depend on k. 


The contact-interaction problem of this section can be solved analytically if W(x) — 0, which allows 
us to check the accuracy of the presented numerical calculations. We will study the dimensionless 


(a=m=h=1) Hamiltonian H = i ES H & kô(xı — x»). 


1. The ground-state wavefunction will be of the form 


cos[a(x; + x» — 1)] cos[8(0a — x + 1)] 

— cos[a(a — x + 1)] cosa +x- 1) if 0 €»« € » <1, 
cos[a(x2 + xı — 1)] cos[8(oo — xı + 1)] 

—cos[a(x2 — xı + 1)] cose +x — 1) if 0 € »o €» <1. 


p(x, x2) = Ax (4.67) 


Check that this wavefunction satisfies the boundary conditions Y(x1, 0) = W(x, 1) = Y(0, x) = 
w(1, Xo) = 0, that it is continuous across the boundary xı = x (i.e., that the two pieces 
of the wavefunction match up), and that it satisfies the symmetries of the calculation box: 
y(x, x2) = y(x, x) = PCL — x, 1 — x). 

2. Insert this wavefunction into the time-independent Schrödinger equation. Find the energy 
eigenvalue by assuming x; # x2. You should find E = a? + 8?. 


3. Express the Hamiltonian and the wavefunction in terms of the new coordinates R = (x, +x2)/ V2 


and r = (x, — x2)/V2. Hints: Se E = 2 H 2 and ó(ux) = u~16(x). 


4. Integrate the Schródinger equation, expressed in the (R, r) coordinates, over r € [—e, e] and take 
the limit e — O+. Verify that the resulting expression is satisfied if œ tan(a) = 8tan(B) = «/2. 
Hint: Do the integration analytically and use f? dr f(r) = f'(b) — f'(a). 


5. The ground state is found by numerically solving œ tan(a) = Gtan(8) = «/2. Out of the many 
solutions of these equations, we choose the correct ones for the ground state by specifying the 
starting point of the numerical root solver: 


1 |In[540]:- Clear[a,b] ; 
In[541]:=a[-00] = 7/2; 
3 |Int5s42]:=a[0] = 7; 
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In[543]:=a[00] = 37/2; 


In[544]:-a[k ?NumericQ] := alk] = u /. 
FindRoot luxTan[u]==k/2, {u,7+ArcTan[k/ (271) ] ¥] 
7 | In[545 :=b[-00] = I*oo; 


8 | In[546]:=b[0] = 0 : 

9 | In[547]:=b[oo] = m: 

io |In[548]:-b[K. | /; K >= 0] := b[k] = u /. FindRoot[u*Tan[u] == k/2, 

11 Tu If [k«7t, 1, 7/2 - m/k + 2n/k^2])] 

12 | In[549]:=b[k_ /; K < 0] := b[k] = I*u /. FindRoot[u*Tanh[u] == -k/2, {u,-k/2}] 


Compare the resulting k-dependent ground state energy to the numerically calculated ground-sta- 
te energies from In [519]. 


4.3.2 two particles in one dimension with arbitrary interaction 


Two particles in one dimension interacting via an arbitrary potential have a Hamiltonian very similar to 
Equation (4.61), except that the interaction is now 


Hint = Vint (X12, X2), (4.68) 


or, more explicitly as an operator in the Dirac position basis, 


a 
fim = | dsebobs) 9 pe) 0%) 0a] (a, (4.69) 
0 
As an example, for the Coulomb interaction we have Vint(x1, X2) = Foal with Q and Qs the electric 


charges of the two particles. For many realistic potentials Vnt only depends on |x, — xo]. 
In the finite-resolution position basis, the matrix elements of this interaction Hamiltonian can be 
approximated with a method similar to what we have already seen, for example in section 4.1.4: 


a 
(i, Jo Tine Ut Jo) a 9; (x1) Oj (x2) Vint(X1, X2) Oy (130 y, (x2)dx dxo 
0 
a 
S Vii Xp) I 9j (x1)0 00)9; (x1) Ope (x2)dx1dx2 = Oj, ji Ojo, Vint Xa X). (4.70) 


This approximation is easy to evaluate without the need for integration over basis functions. But realistic 
interaction potentials are usually singular for xı = x» (consider, for example, the Coulomb potential), and 
therefore the approximate Equation (4.70) fails for the evaluation of the matrix elements (j, j|HintLi, J). 
This problem cannot be solved in all generality, and we can either resort to more accurate integration (as in 
section 4.3.1) or we can replace the true interaction potential with a less singular version: for the Coulomb 
potential, we could for example use a truncated singularity for |x| < 6 for some small distance 6: 


Vint (x) = 


1 . 
Qi. i? if |x| > à uo 


Ameo i if|xl<6 


As long as the particles move at energies much smaller than V,:(+0) = rane they cannot distinguish the 
true Coulomb potential from this truncated form. 


exercises 


Q4.18 Consider two indistinguishable bosons in an infinite square well, interacting via the truncated Coulomb 
potential of Equation (4.71). Calculate the expectation value of the inter-particle distance, (x; — xo»), 
and its variance, (ox — x2)2) — (xı — x2)”, in the ground state as a function of the Coulomb interaction 
strength (attractive and repulsive). Hint: set 6 = A = a/(Mmax + 1) in Equation (4.71). 


Q4.19 Answer Q4.18 for two indistinguishable fermions. 
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4.4 one particle in several dimensions [code] 


An important application of the imaginary-time propagation method of section 4.2.1 is the calculation of 
the shape of a three-dimensional Bose-Einstein condensate. In this section we use such a calculation as an 
example of how to extend single-particle lattice quantum mechanics to more spatial dimensions. 
The non-linear Hamiltonian describing a three-dimensional Bose-Einstein condensate in a harmonic trap 
(to use a very common case) is 
Anh? as 


T h? gU. æ pH e om 22.8 4 1:9 9 3 2 
H= ( rays? az) 5 (uix t wey? + woz?) + (N - 1) = lvo y.z)?, (4.72) 


where we have assumed that the single-particle wavefunction (x, y, z) is normalized: [|wW(x, y, z)|?dxdydz = 
1. As before, the contact interaction is described by the s-wave scattering length as. We will call k — mita, 
the interaction constant, as in previous sections. 

We perform this calculation in a square box, where |x| € 3, |y| < 5, and |z| < 5; we will need to choose 
a large enough so that the BEC fits into this box, but small enough so that we do not need an unreasonably 
large Nmax for the description of its wavefunction. Notice that this box is shifted by $ compared to the 
[0... a] boxes used so far; this does not influence the calculations in any way. 

The ground state of the non-linear Hamiltonian of Equation (4.72) can be found by three-dimensional 
imaginary-time propagation, starting from (almost) any arbitrary state. Here we assemble a Mathematica 
function groundstate that, given an imaginary time step 08, propagates a random initial state until the 
state is converged to the ground state. 

The units of the problem are dealt with as in section 4.1.1, differing from In[409] ff in that here we 
choose the length and time units freely: 


In[550]:-LengthUnit = Quantity ["Micrometers"]; (* choose freely *) 

In[551]:- TimeUnit = Quantity ["Seconds"]; (* choose freely *) 

In[552]:- MassUnit = Quantity ["ReducedPlanckConstant"]*TimeUnit/LengthUnit^2; 
In[553]:- EnergyUnit = Quantity ["ReducedPlanckConstant"]/TimeUnit; 

In[554]:-f] = Quantity ["ReducedPlanckConstant"]/(EnergyUnit*TimeUnit); 


We will be considering N = 1000 ®’Rb atoms in a magnetic trap with trap frequencies wx = 21 x 115 Hz 
and wy = Wz = 2m x 540Hz. The %Rb atoms are assumed to be in the |F = 1, Me = —1) hyperfine 
ground state, where their s-wave scattering length is as = 100.4ag (with a9 = 52.9177 pm the Bohr radius). 


In[5551:=m = Quantity [86.909187, "AtomicMassUnit"]/MassUnit; 
n(556]:=a = Quantity[10, "Micrometers"]/LengthUnit; 

n[557]:- (0X = 2*7r5KQuantity[115, "Hertz"]*TimeUnit; 

n[558]:- Quy = 2*7*Quantity[540, "Hertz"]*TimeUnit; 

n[559]:- (pz = 2*7*Quantity[540, "Hertz"]*TimeUnit; 

n[560]:=as = Quantity[100.4, "BohrRadius"]/LengthUnit; 
n[561]:- K = 4x7rkf)^2*as/m; 


Next we define the grid on which the calculations will be done. In each Cartesian direction there are Nmax 
grid points x; = xgrid[[j]] on the interval [—a/2, +a/2]: 


n[562]:=nmax = 50; 
In[563]:=A = a/(nmax+1); 
In[s641:=xgrid = a*(Range [nmax]/(nmax+1) - 1/2); 


We define the dimensionless harmonic-trap potential: the potential has its minimum at the center of the 
calculation box, i.e., atx =y=z=0. 


Inls6s1:=W[x_,y_,2_] = m/2 * (wx^2*x^2 + wy72*y72 + wz^2*z^2); 


We only need the values of this potential on the grid points. To evaluate this, we build a three-dimensional ar- 
ray whose element Wgrid[[jx, jy,jz]] is given by the grid-point value W [xgrid[[jx11,xgrid[[jy11,xgrid[[jz1]1: 
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We could also define this more efficiently through functional programming: 


In[567]:-Wgrid = Outer[W, xgrid, xgrid, xgrid]; 


The structure of the three-dimensional Wgrid array of potential values mirrors the structure of the 
wavefunction that we will be using: any wavefunction v will be a Mmax X Mmax X Mmax array of coefficients in 
our finite-resolution position basis: 


Nmax 


p(x yz) = Y vlljx,jy,j2119,0099,,(1)0,(2). (4.73) 


Jx Jy jz=1 


From Equation (4.13) we find that on the three-dimensional grid points the wavefunction takes the values 


DOG XX) = VELGX, jy 3211/40. (4.74) 
The norm of a wavefunction is 
oo Nmax 
J ly(x, y, z)|2dxdydz = » IvELjx, jy, jz]] |? = Norm[Flatten[v]]~2, (4.75) 
799 Jx Jy Jz=1 


from which we define a wavefunction normalization function 


In[s68]:- nn[v. ] := v/Norm[Flatten[v]] 


The ground state calculation then proceeds by imaginary-time propagation, with step size 66 corresponding 
to an evolution e-98?* per step. The calculation is done for N = n particles. Remember that the FourierDST 
function can do multi-dimensional discrete sine transforms, and therefore the kinetic-energy propagator can 
still be evaluated very efficiently. The last argument, tolerance, is optional and is given the value 10~° if 
not specified (see section 1.6.5). 


In[569]:- groundstate[n ?NumericQ, 5f ?NumericQ, tolerance :10^(-6)] := 
Module[{Kn, Ke, propKin, propPot2, prop, vO, y, Ekin, Epot, Eint, Etot, pr; 
(* compute the diagonal elements of exp[-5p*T] *) 
Kn = 7^2*h^2/(2*m*a^2) *Table[nx^2*tny^2*nz^2, 
{nx,nmax}, {ny,nmax}, {nz,nmax}]; 
Ke = Exp[-56*Kn] //N; 
* propagate by a full imaginary-time-step with T *) 
propKin[v_] := nn[FourierDST[Ke*FourierDST[v, 1], 1]]; 
* propagate by a half imaginary-time-step with V *) 
propPot2[v_] := nn[Exp[- (58/2) * (Wgrid+k*(n-1) *Abs [v] 2/A^73)] *v] ; 
* propagate by a full imaginary-time-step by *) 
* H=T+V using the Trotter approximation *) 
prop[v.] := propPot2[propKin[propPot2[v]]] 
* random starting point *) 
vO = nn € RandomVariate[NormalDistribution[], {nmax, nmax, nmax}]; 
* propagation to the ground state *) 
y = FixedPoint[prop, vo, 
SameTest -> Function[{v1,v2}, Norm[Flatten[vi-v2]]<tolerance]]; 
* energy components *) 
Ekin = Flatten[Kn].Flatten[Abs[FourierDST[y, 111721; 
Epot = Flatten[Wgrid].Flatten[Abs[y]72]; 
Eint = (xk/2)*(n-1)*Total [Flatten [Abs [y]741]1/A473; 
(* total energy *) 
Etot = Ekin + Epot + Eint; 


In[566]:- Wgrid=Table[W[xgrid[[jx]],xgrid[[jy]],xgrid[[jz]]],{jx,nmax},{jy,nmax},{jz,nmax}] ; 
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(* chemical potential *) 

p = Ekin + Epot + 2*Eint; 

(* return energy, chemical potential, coefficients *) 
{Etot, p, YJ] 


As an example, we calculate the ground state for N = 1000 atoms and a time step of 68 = 107° time 
units, using the default convergence tolerance: 


In[570]:- (Etot, p, y} = groundstate[1000, 10^(-4)]; 
In[571]:-fEtot, p} * UnitConvert[EnergyUnit, "Joules"] 
Out [571]= {6 .88125*107-31 J, 8.68181*10^-31 J} 


A more common energy unit is the Hertz, arrived at via Planck's constant: 


In[572]:- (Etot, p) * UnitConvert [EnergyUnit/Quantity["PlanckConstant"], "Hertz"] 
0ut[572]- {1038.51 Hz, 1310.25 Hz) 


One way of plotting the ground-state density in 3D is as an iso-density surface. We plot the surface at half 
the peak density with 


In[573]:-Q = Abs[y]72/A73; 

In[s74]:=ListContourPlot3DL[p, 
DataRange -> a*(1/(nmax+1)-1/2)*{{-1,1},{-1,1},{-1,1}}, 
Contours -> {Max[p]/2}, BoxRatios -> Automatic] 


Here we show several such iso-density surfaces: 


l 
S. 


For more quantitative results we can, for example, calculate the expectation values X — (x), Y 
Z = (z), XX = (x?), YY = (y?), ZZ = (z?). We could define coordinate arrays as 


In[575]:- XC Table[xgrid[[jxl], {jx,nmax}, fjy,nmax}, {jz,nmax}]; 
Table[xgrid[[jyl], {jx,nmax}, fjy,nmax}, {jz,nmax}]; 


Ints771:=zCc = Tablelxgrid[[jz1], {jx,nmax}, fjy,nmax}, {jz,nmax}]; 


In[576] :=yC 


but we define them more efficiently as follows: 
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: |In[578]:- ones = ConstantArray[1, nmax]; 

2 |In[579]:-xc = Outer[Times, xgrid, ones, ones]; 
s |In[580]:-yc = Outer[Times, ones, xgrid, ones]; 
1 |In[581]:-zc = Outer[Times, ones, ones, xgrid]; 


The desired expectation values are then computed with 


1 |Inl582]:- X = Total[Flatten[xc * p]]; 
2 | In[583]:=Y = Total[Flatten[yc * pl]; 
3 |In[584]::-Z = Total[Flatten[zc * pl]; 
¿ |In[585]:-XX = Total[Flatten[xc^2 * pl]; 
In[586]:- YY = Total[Flatten[yc^2 * pl]; 
In[587]:7 ZZ = Total[Flatten[zc^2 * p]]; 


The root-mean-square size of the BEC is calculated from these as the standard deviations of the position 
operators in the three Cartesian directions: 


In[588]:- (8qrt [XX-X^2] , Sqrt[YY-Y^2], Sqrt[ZZ-Z^2]) * LengthUnit 
Out [588]= {1.58829 pm, 0.417615 pm, 0.417615 pm} 


N 


4.4.1 exercises 


Q4.20 Take the BEC Hamiltonian of Equation (4.72) in the absence of interactions (as = 0) and calculate 
analytically the expectation values (x?), (y?), (22) in the ground state. 


Q4.21 Take the BEC Hamiltonian of Equation (4.72) in the limit of strong interactions (Thomas—Fermi 
limit), where the kinetic energy can be neglected. The Gross-Pitaevskii equation is then 


m, 5.2 2,2 2.2 4nf^ a " 
5 (Wax + uy? + 02%) + (N = 1)— =|, 2 | vos y, 2) = wb yz), (4.76) 
which has two solutions: 
0 or 
(W(X, y z) = 4 8 (w2x?-+u2y2 +0222) (4.77) 


Anh? 
(N-1) 79s 


Together with the conditions that |y(x, y, z)|? > 0, that w(x, y, z) should be continuous, and that 
SIw(x, y, 2)|?dxdydz = 1, this gives us the Thomas-Fermi "inverted parabola" density 


wat A GRY 0 * (9 Sar 


0 if not, 


which is nonzero only inside an ellipsoid with Thomas-Fermi radii 


1 t 
15f? as(N — 1)wywz |? 15K(N — 1)wywz | 5 
Rx = | mut B 4v mu ' Ua 
1 i 
TM 151% a;(N — 1)wzwx | * _ 15&(N — 1)wxwz | | (4.79)b 
á mut 4m mu^ 
y y 
1 1 
15% as(N — 1)wxwy |? 15k(N — 1)wxwy | 5 
m | mw H 4n muj* petals 
The density at the origin of the ellipsoid is 
1 [225m www? 5 [| 2235m ww ws 5 (4.80) 
Po = Bn | R6a3(N — 1)3 512n2&3(N — 1) i 
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and the chemical potential is 


1 H 5 
=> [225mR^ a2(N — 1Y*w2w?w?]* MN —1ywzwiwi| . (4.81) 


Using this Thomas-Fermi density profile, calculate the expectation values (x°), (y?), (z?) in the 
ground state of the Thomas-Fermi approximation. Hints: Calculate (x?) using Equation (4.78) 
without substituting Equations (4.79) and Equation (4.80); do these substitutions only after having 
found the result. You can find (y?) and (z?) by analogy, without repeating the calculation. 


Compare the numerical expectation values (x2), (y?), (22) of our Mathematica code to the analytic 
results of Q4.20 and Q4.21. What is the maximum ®’Rb atom number N which allows a reasonably 
good description (in this specific trap) with the non-interacting solution? What is the minimum atom 
number which allows a reasonably good description with the Thomas-Fermi solution? 


combining spatial motion and spin 


In this chapter we put together all the techniques studied so far: internal-spin degrees of freedom (chapter 3) 
and spatial (motional) degrees of freedom (chapter 4) are combined with the tensor-product formalism 
(chapter 2). We arrive at a complete numerical description of interacting spin-ful particles moving through 
space. To showcase these powerful tools, we study Rashba coupling as well as the Jaynes-Cummings model. 
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5.1 one particle in 1D with spin 


5.1.1 separable Hamiltonian 


The simplest problem combining a spatial and a spin degree of freedom in a meaningful way consists of a 
single spin-1/2 particle moving in one dimension in a state-selective potential: 


" m gd a 
H= 2m dx? t Vo(x) t Vz(x)5z, (5.1) 


where $, = 307 is given by the Pauli matrix. As was said before, Equation (5.1) is a short-hand notation 
of the full Hamiltonian 


n h2 oo d? 
H = Ei m dx|x) a ( 


x|91+ T dx|x)Vo(x)(x| @ 1+ T dx|x) V-(x)(x| & Sz, (5.2) 


where it is more evident that the first two terms act only on the spatial part of the wavefunction, while the 
third term couples the two degrees of freedom. 

The Hilbert space of this particle consists of a one-dimensional degree of freedom x, which we had 
described in chapter 4 with a basis built from square-well eigenstates, and a spin-1/2 degree of freedom 
S= 18 described in the Dicke basis (chapter 3). This tensor-product structure of the Hilbert space allows 
us to simplify the matrix elements of the Hamiltonian by factoring out the spin degree of freedom, 


> pa oo oo 
emi mo E | eco eoim + | ez f IV GO P(x) dx (18217) 


à 
=-Ż / 4 GOV Cdx + / O° GOM GO GOde + 5 / d GOV. GO Gode 


—oo 


e x x 
ná. =- I d* QW Godx (41) + / d GOV GU GOdkCTL) + 5 J OAA 
=0 
2 Ge " x 
(6. Afi. 1) == J PJPO) + J d GOV GO GOdk QUID + 5 i] $" GV. GO G9 da) 
=0 
Nr" a - 
(6 ARI. = -2 l PAW God«(4) + / 4 GOV GU GOdk QUU) + 5 / $ GOV. GO W(x) dx (óz 1) 
E . " 
= I d* (x)W" Qd + / POVI — 5 I P GOV. X) G)dx. (5.3) 


We see that this Hamiltonian does not mix states with different spin states (since all matrix elements where 
the spin state differs between the left and right side are equal to zero). We can therefore solve the two 
disconnected problems of finding the particle's behavior with spin up or with spin down, with effective 
Hamiltonians 


x h? q? 


h? q? 1 
Vo(x) 4 5Ve(x), Hy = 7m d 


T "Om dx2 | 


+ Vo(x) 2.09. (5.4) 


These Hamiltonians now only describe the spatial degree of freedom, and the methods of chapter 4 can be 
used without further modifications. 


5.1.2  non-separable Hamiltonian 


A more interesting situation arises when the Hamiltonian is not separable as in section 5.1.1. Take, for 
example, the Hamiltonian of Equation (5.1) in the presence of a uniform transverse magnetic field By, 


A Ne ge z " 
H= 2m dx T Vo(x) | V (x)5z + BxSx. (5.5) 
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The interaction Hamiltonian with the magnetic field is not separable: 


(BSN 58 f^ owa = o 


2 
(6.118... = 58. f PowNed = 58. f owa 
(6.48... = 58. [^ Cove = 58. [ova 
(6.48...) = 58. [^ PCW) = 0 (5.6) 


Therefore we can no longer study separate Hamiltonians as in Equation (5.4), and we must instead study the 
joint system of spatial motion and spin. In what follows we study a simple example of such a Hamiltonian, 
both analytically and numerically. We take the trapping potential to be harmonic, 


1 
Vo(x) = ¿mu (5.7) 
and the state-selective potential as a homogeneous force, 


Vz(x) = —Fx. (5.8) 


ground state for B, = 0 


For B, = 0 we know that the ground states of the two spin sectors are the ground states of the effective 
Hamiltonians of Equation (5.4), which are Gaussians: 


e CE) el j 
e 


xm) = RUE It) xm) = WEN 


ando = These two ground states are degenerate, with energy E — $ hw — 


& |) (5.9) 


; —_ E h Fe 
with u 2mu? 2mu* 8mu? * 


both of these ground states the spatial and spin degrees of freedom are entangled: the particle is more likely 
to be detected in the |f) state on the right side (x > 0), and more likely to be detected in the ||) state on 
the left side (x < 0) of the trap. This results in a positive expectation value of the operator € & Sz: 


In 


(lk @ 5; = me Sz) = 5 = ux 


(5.10) 


perturbative ground state for B, > 0 


For small |B,| the ground state can be described by a linear combination of the states in Equation (5.9). If 
we set 


Imo) = e x m) +8 x Ivo (5.11) 


with |a|? + |B|? = 1, we find that the expectation value of the energy is 


liv) = lal? erf) + ote) + Bray fg) + BP Qr IA Im) 


Ca 9 Bre 


1 2 
5 Bx(a"B + B'a)e ws (5.12) 


For B, > 0 this energy is minimized for a = 1/2 and 8 — -1/v2, and the perturbative ground state is 
therefore the anti-symmetric combination of the states in Equation (5.9) 


e e ue 
(xo) = === 9 |t) - —— BOI). (5.13) 
j V 20/20 V 20/20 
with energy 
= 1 F? 1 FO 
Qty) = ¿Mw $3 — 5Bxe me. (5.14) 
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The energy splitting between this ground state and the first excited state, 


e GE e GREY 
(x]ep) = zm NC 


& |). (5.15) 


m Al 2 
is AE = (ep Hlep) — (Yp HI Yp) = Bye mz, which can be very small for large exponents a d 


numerical calculation of the ground state [code] 


For a numerical description of this particle we use dimensionless units such that a=m=f=1; other units can 
be used in the same was as presented in section 4.1.1. We describe the spatial degree of freedom with the 
finite-resolution position basis of section 4.1.2, centered at x = 0 as in section 4.4: 


In[589]:=a =m = fh = 1; 

In[590]:=nmax = 100; 

In[591]:- A = a/(nmax*1); 

In[592]:- xgrid = a*(Range[nmax]/(nmax*1)-1/2); 


The operator X is approximately diagonal in this representation (see Equation (4.24)): 


In[593]:-xop = SparseArray[Band[{1,1}] -> xgrid]; 


The identity operator on the spatial degree of freedom is 


In[594]:-idx = IdentityMatrix[nmax, SparseArray] ; 


The identity and Pauli operators for the spin degree of freedom are 


In[595]:-ids = IdentityMatrix[2, SparseArray] ; 
In[596]:- (Sx , Sy , sz) -Table[SparseArray[PauliMatrix[i]/2], {i,3}]; 


The kinetic energy operator is constructed via a discrete sine transform, as before: 


In[597]:- TM = SparseArray [Band [11,1)+]->Range [nmax] ^2*7^2*f172/ (2*m*a^2)] ; 
In[598]: TP = FourierDST[TM, 1]; 


From these we assemble the Hamiltonian, assuming that F and B, are expressed in matching units: 


In[s99:=H[w_, F_, Bx ] = 
KroneckerProduct[TP, ids] 
+ mkw72/2 * KroneckerProduct[xop.xop, ids] 
- F * KroneckerProduct[xop, sz] 
+ Bx * KroneckerProduct[idx, sx]; 


We compute the ground state of this Hamiltonian with 


In[600]:- Clear [gs] ; 
In[601]:- gs [w_?NumericQ, F ?NumericQ, Bx ?NumericQ] := 
gs[w, F, Bx] = -Eigensystem[-H[N [o] ,N[F] ,N[Bx]], 1, 
Method -> ("Arnoldi", "Criteria" -> "RealPart", MaxIterations => 1076} 


Once a ground state |y) has been calculated, for example with 


In[s021:=y = gs[100, 5000, 500] [[2, 111]; 


the usual problem arises of how to display and interpret the wavefunction. Instead of studying the coefficients 
of y directly, we calculate several specific properties of the ground state in what follows. 
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Operator expectation values: The mean spin direction (magnetization) ($) = (($,), (Sy), (Sz)} is cal- 
culated directly from the ground-state coefficients list with 


1 | In[603]:=mx = Re[Conjugate[y] . (KroneckerProduct[idx,sx].y2]; 
In[604]:-my = Re[Conjugate[y].(KroneckerProduct[idx,syl.y2]; 
In[605]:-mz = Re[Conjugate[y].(KroneckerProduct[idx,sz].y2]; 


N 


w 


¿ | In[606] := (mx , my , mz} 
s |Oüut[606]- (-0. 283037, 0., -2.08318*107-12} 


The mean position (X) and its standard deviation are calculated with 


1 | In[607]:=X = Re[Conjugate[y] . (KroneckerProduct [xop, ids] .y)]; 

2 |In[608]:-XX = Re[Conjugate [y] . (KroneckerProduct [xop.xop,ids].y)]; 
3 |In[609]:- (X, Sqrt [XX-X72]} 

4 | Out(6o9]={1.2178*107-11, 0.226209} 


Even though we found (R) = 0 and ($2) = 0 above, these coordinates are correlated: calculating 
(20 $,), 


1 | Inte1o1:=Xz = Re[ConjugateLy] . (KroneckerProduct [xop,sz].y)] 
2 |Out[610]- 0. 0954168 


Reduced density matrix of the spatial degree of freedom: Using 1n[257] we trace out the spin degree 
of freedom (the last two dimensions) to find the density matrix in the spatial coordinate: 


1 |In[611]:- Qx = traceout[y, -2]; 
2 | Inl612]:=ArrayPlot[Reverse[Transpose[ArrayPad[px/A, 1111] 


= px) 
2 
0.3 
. 
0.1 | 
a a 
-0.1 + 
e -1 
-0.3+ 
-2 
-0.5 , 
“05 -0.3 -01 01 03 05 
x 


Reduced density matrix of the spin degree of freedom: We can do the same for the reduced matrix of 
the spin degree of freedom, using In[256], and find a 2 x 2 spin density matrix: 


1 |1n[613]:- ps = traceout[y, nmax] 
2 |outls131=140.5, -0.233037}, {-0.233037, 0.5}} 


Spin-specific spatial densities: The reduced density matrix of particles in the spin-up state is found by 
projecting the ground state |) onto the spin-up sector with the projector Il, = |t)(t| = i1 4$, 
Thus, | ys) = f|) only describes the particles that are in the spin-up state: 


! Remember that 1 = |t) (t| + I) (4 and $2 = 3t (t — $10 1. 
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1 | Inl6141:=yup = KroneckerProduct[idx, ids/2*sz].y; 


2 |In[615]:- pxup = traceout[yup, -2]; 


In the same way the reduced density matrix of particles in the spin-down state |y,) = My|y) is 
calculated with the down-projector My, = |J) (4| = 11 — Sz: 


: | In[616]:-'ydn = KroneckerProduct[idx, ids/2-sz].y; 
2 |In[617]:- Qxdn = traceout[ydn, -2]; 


Pr(x,x') Pu (x,x’) 

0.5 0.5 

0.3+ 0.3+ 

0.1; 0.1 - 

x x 
—0.1 + —0.1 + 
-0.3r -0.3+ 
-0.5 fi fi fi L -0.5 L L L 1 
-0.5 -0.3 -0.1 0.1 0.3 0.5 -0.5 -0.3 -0.1 0.1 0.3 0.5 
X X 


The positive correlation between the spin and the mean position, (X & B > 0, is clearly visible in 
these plots. 


Since A + Ay = 1, these two spin-specific spatial density matrices add up to the total density shown 
previously. This also means that the spin-specific density matrices do not have unit trace: 


1 |Inf618]:- {Tr [pxup] , Tr[pxdn])+ 
2 |Out[618]- (0.5, 0.5} 


Hence we have 50% chance of finding the particle in the up or down spin states. 


Space-dependent spin expectation value: Similarly, we can calculate the reduced density matrix of the 
spin degree of freedom at a specific point in space by using projection operators I; = |j) (j] onto 
single position-basis states |): 


1 |In{619]:=yx[j_Integer /; 1 <= j <= nmax] := 
2 KroneckerProduct [SparseArray[{j, j} -> 1, {mmax, nmax}], ids].y 
in(620]:=psx[j_Integer /; 1 <= j <= nmax] := traceout[yx[jl, nmax] 


We notice that, as before, these spatially-local reduced density matrices do not have unit trace, but 
their traces sum up to 1: 


1 | Infe21]:- Sum[Tr[psx[jl], {j, nmax}] 
2 |Out[621]- 1. 


In fact, the traces of these local reduced density matrices give the probability of finding the particle 
at the given position. We can use this interpretation to calculate the mean spin expectation value of 
a particle measured at a given grid point: 
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1n[622):-meansx [j Integer /; 1 <= j <= nmax] := Tr[psx[j].sz]/Tr[psx[j]1 
In[623] :- ListLinePlot [Transpose[{xgrid, Table[meansx[j], {j, nmax}]}]] 


This graph confirms the observation that particles detected on the left side are more likely to be in 
the |.) state, while particles detected on the right side are more likely to be in the |?) state. 


5.1.3 exercises 


Q5.1 In the problem described by the Hamiltonian of Equation (5.5), calculate the following expectation 
values (numerically) for several parameter sets (uw, F, By}: 
1. (x) for particles detected in the |f) state 
2. (x) for particles detected in the |{) state 
3. (x) for particles detected in any spin state 
4. 


the mean and variance of $ & $, 


5.2 one particle in 2D with spin: Rashba coupling [code] 


A particularly interesting kind of interaction is the Rashba coupling between a particle's momentum and its 

spin.? In general, this interaction is proportional to a component of the vector product R= Bx S. Fora 

particle moving in two dimensions (x, y), the coupling involves the z-component Rz = fx Y S — p, € So 
In this section we study the 2D Rashba Hamiltonian 


gr» 

2m 
in a square box where —5 < x, y € 5 as before. With a Hilbert space composed as the tensor product of 
the x, y, and spin coordinates, in this order, the full Hamiltonian thus becomes 


h2 a/2 e h2 a/2 e 
NGC d S" E d pate 
2m i XP) ae xl 2m La XW aya vi 


a/2 » . . 
i, dxdyb9l VG y)xity| @ 1+6(1 @1@ $,) +.0(%j @1@ 5,10 8,9 $,). (5.17) 
—a/2 


a 


H = + V(x, y) +68, + a(6, 9 Sy — By @ Sx) (5.16) 


atle1+13 


+ 


For simplicity we will set V (x, y) = 0; but any nonzero potential can be used with the techniques introduced 
previously. Further, we use a=m=f=1 to simplify the units; but as usual, any system of units may be used 
(see section 4.1.1). 

Since both the kinetic and the interaction operator are most easily expressed in the momentum 
representation, we use the momentum representation (see section 4.1.2) to express the spatial degrees of 
freedom of the Hamiltonian. The identity operator is 


?See https://en.wikipedia.org/wiki/Rashba effect. 
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In[624]:=nmax = 50; 
In(625]:=A = a/(nmax+1); 
In[626]:-idM = IdentityMatrix[nmax, SparseArray] ; 


We use the exact form of the kinetic operator from In[423] and the exact form of the momentum operator 
from In[444]. As discussed previously, these two forms do not exactly satisfy 7 = p?/(2m). They are, 
however, the best available low-energy forms. 

For the spin degree of freedom, we assume S = 1/2, giving us the usual spin operators and the identity 
operator, 


in(627]:={sx,sy,sz} = Table[SparseArray[PauliMatrix[i]/2], íi, 3}]; 
In[628]:-idS = IdentityMatrix[2, SparseArray] ; 


With these definitions, we assemble the Rashba Hamiltonian of Equation (5.17) in the momentum 
representation with 


inf629]:=HM[5_, a_] = KroneckerProduct[TM, idM, idS] 
+ KroneckerProduct[idM, TM, ids] 
+ 5*KroneckerProduct [idM, idM, sz] 
+ o*(KroneckerProduct[pM, idM, sy] - KroneckerProduct[idM, pM, sx]); 


Given a state y, for example the ground state of In[629] for specific values of ô = 1 and a = 20, we 
calculate the mean value ($2) = (R? & 1 8 1) with the position operator xM expressed in the momentum 
basis: 


In[630]:;-xgrid = a*(Range[nmax]/(nmax + 1) - 1/2); 

In[631]:-xP = SparseArray[Band[{1, 1}] -> xgrid]; 

In[6321:=xM = FourierDST[xP, 1]; 

In[633] :=Conjugate Ly] . (KroneckerProduct[xM.xM, idM, idS].y) //Re 
Out [633]- 0 . 0358875 


In the same way, we calculate the mean value (77) = (18 f? 8 1): 


In[634] :=Conjugate [y] . (KroneckerProduct[idM, xM.xM, idS].y) //Re 
Out [634]- O. 0358875 


In order to study the spatial variation of the spin (the expectation value of the spin degree of freedom if the 
particle is detected at a specific spatial location), we calculate the reduced density matrix of the spin degree 
of freedom at a specific grid point (x;, yj) of the position grid.? For this, we first project the ground-state 
wavefunction y onto the spatial grid point at x = x; and y = yj using the projector |/)(/| & [j) (j| in the 
momentum representation: 


In[6385]:-TTP [j. ] := SparseArray[{j, j} -> 1, ínmax, nmax)] 
1n[636) :- TIM[j_] FourierDST[TIP[jl, 1] 
In[637]:-gP [1 ,j.] := KroneckerProduct[TIM[i], IIM[j], idS].y 


Tracing out the spatial degrees of freedom with the procedure of section 2.4.3 gives the 2 x 2 spin density 
matrix at the desired grid point, 


In[688]:-RsP [i., j_] := traceout[gP[i,j]l, nmax^2] 


The trace Tr[RsP[i,jl] of such a reduced density matrix gives the probability of finding the particle at 
grid point (x, yj): 


3Naturally, the following calculations would be simpler if we had represented the ground state in the position basis; however, 
we use this opportunity to show how to calculate in the momentum basis. 
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p(x,y) 
0.5 


5 fi L 
-0.5 -0.3 -0.1 0.1 0.3 0.5 


We can extract more information from these reduced spin density matrices: the magnetization (mean spin 
direction) at a grid point has the Cartesian components 


In[639]:-mxP [i. , j_] Re[Tr[RsP[i,j].sx]/Tr[RsP[i, j11] 
In[640]:-myP[i., j_] := Re[Tr[RsP[i,jl.syl/Tr[RsP[i,j11] 
In[641]:-mzP[i. , j_] := Re[Tr[RsP[i,jl.sz]/Tr[RsP[i,j11] 


I 


N 


w 


Plotting these components over the entire grid shows interesting patterns of the mean spin orientation 
(magnetization) in the ground state: 


(Sx) (Sy) (Sz) 
` i F. " i 0.4 


0.2 


5.2.1 exercises 


Q5.2 While the Hamiltonian of Equation (5.16) and Equation (5.17) contains the distinct operators f, and 
py, the Mathematica form of the this Hamiltonian assembled in In[629] contains the same matrix 
pM representing both B, and By. Why is this so? What distinguishes the Mathematica representations 
of these two operators? 


5.3 phase-space dynamics in the Jaynes-Cummings model [code] 


As a final example, we study the interaction of an atom with the light field in an optical cavity. The atom 
is assumed to have only two internal states: the ground state |g) and some excited state |e). The atomic 
state is described as a (pseudo-)spin-1/2 system with the operators (see Q5.3) 


e _ leXgl + lg) (el e _ legi - l9) (el e _ leel —l9) (gl 
S= — Sy = — n S: = — E (5.18) 
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as well as S* = $, + i$, (see section 3.2). The cavity field is assumed to consist of only one mode, 
described with creation and annihilation operators ât and â, respectively; all other cavity modes are assumed 
to be so far off-resonant that they are not coupled to the atom. 

The Jaynes-Cummings Hamiltonian^ describing the combined system, as well as the coupling between 
the atom and the cavity field, is 


z M 1 i . 
Hic = fun; +hu(a'a+ 2) + hg(S*a+ a's"). ED 
———— 
iio cavity field coupling 


e The atomic Hamiltonian describes the energy difference fiw, between the two internal states of the 
atom. 


e The cavity field Hamiltonian decribes the energy of fi = ât â photons in the cavity mode, each photon 
carrying an energy fiuc. 


e [he coupling term describes the deexcitation of the field 3 together with the excitation of the atom 
S*, as well as the reverse process of the excitation of the field El together with the deexcitation of 
the atom $^ (see Q5.4). 


The cavity mode of the Jaynes-Cummings model is usually studied in the Fock basis of definite photon 
number, using harmonic-oscillator eigenfunctions as basis states. Here we take an alternative approach and 
look at the X — P phase space spanned by the dimensionless quadrature operators X and P,° which are 
related to the creation and annihilation operators ât and â via 


gata MESI Xt ae 
| v2 | v2 2 
" 3— ât AB Xe 
E Hd ghe E LL gm (5.20) 
8X  iv2 v2 V2 
with the commutators [á, at] = 1 and [X, P] = i (see Q5.5). We note that the quadrature X is the 


amplitude of the electromagnetic field of the cavity mode, and P its conjugate momentum; there is no 
motion in real space in this problem, only in amplitude space. Using these quadrature operators, we write 
the Jaynes-Cummings Hamiltonian as (see Q5.6) 


X? 


a A T^ n AR 
Hc = hw4$; + Ml ae v2hg(X$, — PS,) 


JA 
x ales ^ A EN Z 
= hu,1 Q $, + hw.( + 2X) @ 1+ V2Rg(X 9 5, — P & $,), (5.21) 
where we have made its tensor-product structure explicit in the second line. To assemble this Hamiltonian 
in Mathematica, we define the Hilbert space to be the tensor product of the X — P phase space and the 
spin-1/2 space, in this order. 

The phase space is defined as before (see chapter 4) in a calculation box X € [—£, 5] divided into a 
grid of Nmax + 1 intervals. We choose a such that the state fits well into the box (considering that the 
ground state of the cavity field has a size Quay? = pare = 1/v2), and we choose Nmax such that the 
Wigner quasi-probability distribution plots have equal ranges in X and P. Naturally, any other values of a 


and Nmax can be chosen. 


In[642]:=Ĥ = 1; 
In[6431:=a = 10; 
In[644]:=nmax = Round [a”2/71] 
Out [644]= 32 

In[645]:- A = a/(nmax+1); 


(* natural units *) 


4See https://en.wikipedia.org/wiki/Jaynes-Cummings model. 
5In a harmonic oscillator of mass m and angular frequency w, we usually introduce the position operator € = 4/ EX and 
the momentum operator 6 = V ħmwP. Here we restrict our attention to the dimensionless quadratures X and P. 


w 
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We represent the phase space in the position basis. The X quadrature operator is defined as in Equa- 
tion (4.24), 


In[646]:=xgrid = a*(Range[nmax]/(nmax+1) - 1/2); 
1»[647]:-X = SparseArray[Band[(1, 1}] -> xgrid]; 


The definition of the P quadrature operator follows In[444], with Ê? defined directly through 1n [423] 
for better accuracy at finite Nmax: 


In[648]:-P = FourierDST[SparseArray[{ni_, n2_} /; O0ddQ[ni-n2] -> 
4*T#ni*n2) /(a*(n272-n172)), {nmax, nmax}], 1]; 
In[649]:-P2 = FourierDST[SparseArray[Band[{1, 1}] -> Range[nmax]^2*7^2/a^2], 1]; 


Finally, the phase-space identity operator is 


In[650]:-idX = IdentityMatrix[nmax, SparseArray] ; 


The operators on the pseudo-spin degree of freedom are defined directly from the Pauli matrices instead of 
using the general definitions of Equation (3.1) and Equation (3.2): 


In[651]:={Sx, Sy, Sz} = Table[SparseArray[PauliMatrix[i]/2], íi, 37]; 
In[6521:=idS = IdentityMatrix[2, SparseArrayl; 


The Hamiltonian of Equation (5.21) is assembled from three parts: 


In[653]::Ha = KroneckerProduct[idX, Sz]; 

In[654]:- Hc KroneckerProduct[X.X/2 + P2/2, idS]; 

In[655]:-Hint = Sqrt[2]*(KroneckerProduct [X,Sx] -Re [KroneckerProduct [P,Sy]]); 
In[656]:=HP[wa_, wc. , g_] = h*wax*Ha + fi*cockHc + fixg*Hint; 


Remember that we use P2 instead of P.P for the operator £P? for better accuracy. We use the Re operator 
in In[655] to eliminate the imaginary parts, which are zero by construction but render the expression 
Complex-valued nonetheless. 

In the Mathematica notebook attached to this section, the dynamics induced by this time-independent 
Hamiltonian is studied in the weak and strong coupling regimes, using the technique of section 2.3.4 to 
propagate the initial wavefunction. 

Given a calculated space@spin wavefunction w (a vector of 2Mmax complex numbers), we calculate 
the Nmax X Nmax reduced density matrix of the phase-space degree of freedom (cavity field) with 1n [257], 
tracing out the spin degree of freedom (the last 2 dimensions): 


In[657]:=pX = traceout[w, -2]; 


Similarly, we calculate the 2 x 2 reduced density matrix of the spin degree of freedom (atomic state) with 
In [256], tracing out the phase-space degree of freedom (the first Nmax dimensions): 


In[es8]:- 0S = traceout[y, nmax]; 


Expectation values in the field or spin degrees of freedom are then easily calculated from these reduced 
density matrices. 

To illustrate these techniques, we calculate the time-dependent wavefunction in the resonant weak- 
coupling regime (wa = we = 1, g = 0.1; initial state: coherent field state at (X) = v2 and (P) = 0, 
spin down). First we show the time-dependence of the atomic spin expectation values, calculated from a 
reduced spin density matrix with 


In[659]:- (Tr [pS. Sx], Tr[pS.Sy], Tr[pS.Sz]} 


m 
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Observations: 
e At t = 0 we recognize the initial spin-down state: ($,) = (Sy) = 0 and ($7) = -i. 


e The S, and S, spin components rotate rapidly due to the pseudo-spin excitation energy hw, (phase 
factor eat). They are 90? out of phase. 


e The S; spin component has a complicated time dependence. Since the atomic energy is hwa(S2), 
this curve shows the energy flowing between the atom and the cavity light field. 


The phase-space Wigner quasi-probability distribution of the cavity field, calculated using In[481] from 
the reduced phase space density matrix of In[657], using the same weak-coupling conditions as above, is 
plotted here at two evolution times: 


In[s60]:=WignerDistributionPlot[pX, t-a/2, a/2}] 


t=0. t=100. 
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E o: 
—2. + 1-2. -2.r 1-2. " 
| -01 
—4. + 1-4. —4. + 1-4. — 
-0.2 
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Observations: 


e At t — 0 we recognize the initial state: a coherent state (circular Gaussian of minimal area 
(X?) = (P?) = 1) displaced by 6 = V2 in the X-direction, implying 02/2 = 1 photon present initially. 


e At t — 100 the structure of the Wigner distribution has taken on a qualitatively different shape, 
including a significant negative-valued region. Such negative regions are forbidden in classical 
phase-space distributions and hence indicate an essentially quantum-mechanical state. 
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5.3.1 exercises 
Q5.3 Show that the operators of Equation (5.18) represent a pseudo-spin-1/2, like in Q3.2. 


Q5.4 Express $* in terms of |g), |e), (gl, and (el. 
Q5.5 Show that [X, P] =i using Equation (5.20) and assuming that [4, at] = 1. 


Q5.6 Show that Equation (5.21) follows from Equation (5.19) using Equation (5.20). 
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eigenvectors, 21, 43, 45 
exponential, 31-33 
identity matrix, 35, 41 
matrix exponential, 86 
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sparse matrix, 19, 40 
minimization, 47 
module, 7 
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contraction, 23, 37 

product, 34, 43, 53, 95, 107 
tensor networks, 55 
Thomas-Fermi approximation, 105 
transition matrix elements, 48 
Trotter expansion, 86, 91 
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solutions to exercises 


Chapter 1 Wolfram language overview 


Q1.1 (page 2) 


In[661) :- N[Zeta [3] ] 
Out [661]- 1. 20206 


Q1.2 (page 2) 


In[662]:- 4^2 
Qut[662]- 1.44494 


Q1.3 (page 3) 


In[663]:= Integrate[Sin[x]*Exp[-x], {x, 0, Infinity}] 
Out [663]- 1/2 


Q1.4 (page 3) 


In[664]:-N [71, 1000] 

0ut[664]- 3. 141592653589793238462643383279502884197169399375105820974944592307816406286 
20899862803482534211706798214808651328230664709384460955058223172535940812848 
11174502841027019385211055596446229489549303819644288109756659334461284756482 
33786783165271201909145648566923460348610454326648213393607260249141273724587 
00660631558817488152092096282925409171536436789259036001133053054882046652138 
41469519415116094330572703657595919530921861173819326117931051185480744623799 
62749567351885752724891227938183011949129833673362440656643086021394946395224 
73719070217986094370277053921717629317675238467481846766940513200056812714526 
35608277857713427577896091736371787214684409012249534301465495853710507922796 
89258923542019956112129021960864034418159813629774771309960518707211349999998 
37297804995105973173281609631859502445945534690830264252230825334468503526193 
11881710100031378387528865875332083814206171776691473035982534904287554687311 
59562863882353787593751957781857780532171226806613001927876611195909216420199 


Q1.5 (page 3) 


In[665]:- ClebschGordan[Í100, 10}, (200, -12}, (110, -2}] 

Out [665]- 8261297798499109361013742279092521767681* 
Sqrt [769248995636473/297224869222895274740285232180446271746289127347456291479 
57669733897130076853320942746928207329] /14 

In[666]:- 4 //N 

Out [666]- 0.0949317 
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Q1.6 (page 3) 


Q1.7 (page 3) 


In[668]:- Plot [Sin[x]/x, {x, -20, 20}, PlotRange -> A11] 


Q1.8 (page 3) 


(669):-F[c. , imax_] := Abs[NestWhile[#72+c&, 0., Abs[#] <= 2 &, 1, imax]] <= 2 
In[670]:- With [Ín = 100, imax - 1000}, 
Graphics [Raster [Table [Boole[!F[x+I*y,imax]],{y,-2,2,1/n},{x,-2,2,1/n}]]]] 


Q1.9 (page 3) 


In[671]:=MandelbrotSetPlot [] 
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1 n n L n n n n n 1 n n n 1 1 n 
-2.0 -1.5 -1.0 -0.5 0.0 0.5 


Q1.10 (page 4) In general, the definition of x depends on the values of u and v at the time of the definition 
of x, whereas y depends on the values at the time of using the symbol y. The second case below, however, 
needs special attention since the values of u and v are not defined at the time when x is defined. 


e When u and v are already defined before x and y are defined, then x and y return the same value: 


1 |Inte721:=Clear[x, y, u, v]; 
2|In[673:-u = 3; v = 7; 

3 |In[evr4]:X = UV; y i- UY; 
4 | Inl6751:=4x, y) 

s |Out[675]- (10, 10} 

6 | In[676]:- ?x 


e When u and v are defined after x and y are defined, then x and y also return the same value. Notice, 
however, that the definition of x is not static and thus depends on the values of u and v at the time 
of usage: 


1 | In[678):- Clear[x, y, u, vl; 
2 n[679] := = UY y i9 UE 
3 | Inf6so]:=u = 3; v = 7; 


5 |Out[681]- (10, 10} 


e When u and v change values after x and y are defined, then x and y differ since only y reflects the 
new values of u and v: 


1 | Infes4]:=Clear[x, y, u, v]; 
2 | Inl685]:=u = 83; v = 7; 
3 | In[686]:- X 


UFV; y := utv; 
4 | Inl687]:=u = 8; v = 9; 
5 Infes8]:- (x, y) 


N 
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6 | Out[688]={10, 17} 
7 | Inf689]:=?x 

8 x=10 

9 | In[690]:=?y 

10 y:=utv 


SOLUTIONS TO EXERCISES 


Q1.11 (page 6) 


In[691] :- N [E] 
0ut[691]- 2.71828 
In[692] := NOE 

Out [692]= 2.71828 
In[6931:=E //N 
Out [693]= 2.71828 


Q1.12 (page 7) 


In[694]:- Total [Range [123, 9968] ] 
Out [694]- 49677993 


Q1.13 (page 7) 


In[695]:- Module [fi], 
i = 123: 
s = 0; 


i = 1] 
Out [695]= 187 


While[s <= 10000, s += i; i++]; 


Q1.14 (page 9) 


In[696]:=f = #1*#2*#3 &; 


Q1.15 (page 9) 


In[s97]:=a = (0.1, 0.9, 2.25, -1.9}; 
In[698]:=sa = Map[Sin[*]^2 &, a] 


Out [698]= {0 . 00996671, 0.613601, 0.605398, 0.895484} 


Q1.16 (page 9) The Total function is the same as applying Plus to a list: 


In[699]:- Apply [Plus, sal 
In[700]:- 2. 12445 
In{701]:=Plus@@sa 
In[702]:- 2. 12445 

In[703] := Total [sa] 
In[704]:- 2. 12445 


Q1.17 (page 15) All built-in symbols, like Echo, are protected in order to prevent accidental modification. 


Trying to modify Echo without unprotecting it first gives an error: 


In[705]:;- Echo = #1 & 
Set: Symbol Echo is Protected. 
Out[705]-1t1 & 


(1.18 (page 15) See In[128] and In[129]: the full forms of a/b and x_/y_ are similar and match, 


w 
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In[706] := FullForm [a/b] 

Out [706]= Times la, Power[b, -1]] 

In(707]:- FullForm[x. /y. ] 

out [707]= Times [Pattern[x, Blank[]], Power[Pattern[y, Blank[]], -1]] 


while the full form of 2/3 is different and does not match the pattern for replacements, 


In[708] :- Ful lForm [2/3] 
Out[708]-Rational[2, 3] 


Q1.19 (page 18) Not all delayed assignments can be replaced by immediate ones. Whenever an immediate 
assignment can be used, it tends to be faster. 


1. =and : 


work equally well. 
2. = and := work equally well. 

3. =and : 

4. = and := work equally well. There is a significant difference though: while the delayed assignment 


executes as a product, the immediate assignment is simplified at the moment of definition to a factorial, 
which then executes much faster: 


work equally well. 


i |In[709]:-f[n ] = Product[i, fi, n)] 
2 |Out[709]- n! 


Immediate assignment breaks the recursion, which cannot be executed at definition time. 


- and := work equally well. 


- and := work equally well. 


Immediate assignment breaks the Do loop, which cannot be executed at definition time. 


iQ. mL gy OT 


Immediate assignment breaks the For loop: since n is not defined at definition time, the comparison 
i<=n fails at the first iteration and the result is always f [n_]=1. 


10. Immediate assignment breaks the Range command since n is not defined at definition time. 
11. Immediate assignment breaks the Range command since n is not defined at definition time. 
12. Immediate assignment breaks the Array command since n is not defined at definition time. 
13. Immediate assignment breaks the Range command since n is not defined at definition time. 


14. Immediate assignment always gives f [n_]=1 since the repeated replacement fails. 


15. Immediate assignment breaks the Range command since n is not defined at definition time. 
16. Immediate assignment always gives f [n_]=1 since the repeated replacement fails. 
17. = and := work equally well. 


Q1.20 (page 18) Not all delayed rules can be replaced by immediate ones. Whenever an immediate rule 
can be used, it tends to be faster. 


14. -» and :> work equally well. 
16. Immediate rule (-») breaks the Table command since m is not defined at definition time. 


Q1.21 (page 18) In the recursive definitions 5 and 6, memoization gives a dramatic speedup, as it 
remembers intermediate results in the recursion. In the other examples, memoization only helps when the 
function is called repeatedly with the same argument. 

Q1.22 (page 18) Using a built-in function: 


In[710]:- Table[Fibonacci[n], ín, 1007] 


Even more directly, by using the Listable attribute of the Fibonacci function: 


In[711]:- Fibonacci [Range [100]] 


Recursive with memoization: 
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mt7121:=811] = g[2] = 1; 
Intvis1:=g[n_] := gin] = g[n-1] + g[n-2] 
Inf7141:=Table[g[n], (n, 1007] 


Iterative construction of the list: 


In[715]:]L = (1, 1); 
In[7161:=Do [AppendTo[L, L[[-1]] + L[[-2111, (98)1; 
In[717]:-L 


Q1.23 (page 23) The eigenvectors are orthogonal, but not necessarily normalized. 
Eigensystem of Gy: 


In[718]:={eval, evec} = Eigensystem[PauliMatrix[1]] 
out(7isl={{-1, 1}, {{-1, 1}, (1, 1}}} 

In[719]:- Normalize /@ evec 

out(7i9]={{-1/Sqrt [2], 1/Sqrt[2]}, (1/Sqrt[2], 1/Sqrt[2]}} 


Eigensystem of Gy: 


in(720]:={eval, evec} = Eigensystem[PauliMatrix[2]] 

Gus lro01=HE=L, db, HE, 12, AL, 12122 

In[7211:=Normalize /@ evec 

Out[721]-4(I/Sqrt[2], 1/Sqrt[2]}, (-I/Sqrt[2], 1/Sqrt[2]}} 


Eigensystem of 6;: 


In[7222):;-(eval, evec} = Eigensystem[PauliMatrix[3]] 


Out (722]={{-1, it, LO iy. t, OFF? 


Q1.24 (page 23) The tensor index dimensions do not match: 


In[723]:- TensorContract[u, (3, 4}] 


TensorContract:  Contraction levels (3,4) have different dimensions (3,2). 


Chapter 2 quantum mechanics: states and operators 


Q2.1 (page 29) We use the computational basis {|f}, |J)), in which the two given basis functions are 


{Cos [0/2], E^(I*qQ)*Sin[0/2]); 
{-E^(-I*ọ)*Sin[0/2], Cos[0/2]); 


In[724] :- up [0_, «p] 
In[725] :- dn [O.. , «p] 


The corresponding (tha ¿| and (Uy p| are calculated with Conjugate (see section 1.11). 


1. Calculate (Tolto) =1, (To o |o o) =0, A =0, (Vo yllo) =1: 


i | In(726]:=Conjugate[up[@,@]].upl@,@] //ComplexExpand //FullSimplify 
-1 
3 HIn(7271:- Conjugate[up[0,]]1.dn[0,«] //ComplexExpand //FullSimplify 
4 | Out [7271=0 


N 
o 
E 
ct 
ES; 
N 
o 


s | In(728]:- Conjugate[dn[0, p1].up[0, p] //ComplexExpand //FullSimplify 
6 | 0ut[728]=0 


EI 
B 

q 
N 
oO 


: Conjugate [dn[0,«9]].dn[0,«] //ComplexExpand //FullSimplify 
Out [729]- 1 


2. Construct the ket-bra products with KroneckerProduct: 
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In[730]:=KroneckerProduct [up[8,q], Conjugate[up[0,qp1]11 + 
KroneckerProduct[dn[0,«9], Conjugate[dn[0,«9]1] // 
ComplexExpand //FullSimplify 


Out[730]- ((1, OF}, (0, 1}} 


I = Ito.) (owl) + No.0) Hoolt) = cos(9/2)|tto.o) — el” sin(9/2)|Wo,p): 


n[731]:=Cos [0/2] *up[0, p] - E^(I*q)*Sin[0/2]*dn[0, p] //FullSimplify 
Out[731]- (1, O} 


HO = Ire.) Cro e] + IE (9, p) oll) = e^" sin(9/2)Ito,p) + cos(8/2) 49,9): 


n[732]:- E^ (-I* p) *Sin[0/2]*up[0,«] + Cos[0/2]*dn[0,«] //FullSimplify 
Out (732]={0, 1} 


The Pauli operators are defined in Mathematica in our computational basis with the PauliMatrix 
command. 


The matrix elements of the Pauli operator Êx are 


n(733]:=sx = PauliMatrix[1]; 
n(734] := Conjugate [up[6,p]].sx.up[6,@] //ComplexExpand //FullSimplify 
out [734]- Sin [0] *Cos [ọ] 
n[735] :=Conjugate[up[0,@]].sx.dn[0,@] //ComplexExpand //FullSimplify 
out [735] - Exp [- I* p] * (Cos [0] *Cosl@~]+1*Sin[@]) 
2[736]:- Conjugate [dn[0, o]].sx.up[0,«] //ComplexExpand //FullSimplify 
out [736]- Exp [I*«p] * (Cos [0] *Cos [9] -I*Sin[q]l) 
n[737]:- Conjugate [dn[0, o]] .sx.dn[0,«] //ComplexExpand //FullSimplify 
out [737]= -Sin [0] *Cos [q] 
n(738]:-sx == Sin[0]*Cos[q] * KroneckerProduct[up[0, p], Conjugate[up[0,q1]] + 
E^(-I*qg)*(Cos[0]*Cos[qo]*I*Sin[o]) * 
KroneckerProduct [up[0,«], Conjugate[dn[0,]1]] + 
E^(I*g)*(Cos[0]*Cos[o]-I*Sin[o]) * 
KroneckerProduct [dn[0,«], Conjugate[up[0, Q1]] - 
Sin[0]*Cos[q] * KroneckerProduct[dn[0, d], Conjugate[dn[0, ]]] // 
ComplexExpand //FullSimplify 
Out [738]= True 


The matrix elements of the Pauli operator Gy are 


n[7391:=sy = PauliMatrix[2]; 
n[740]:=Conjugate [up[0, ]].sy.up[0,«] //ComplexExpand //FullSimplify 
out [740]- Sàn [0] *Sin[«p] 
n(741]:- Conjugate [up[0, p1].sy.dn[0,«] //ComplexExpand //FullSimplify 
]-Exp[-I*qo]*(Cos[0] *Sin[@] -I*Cos[qo]) 
n(742]:- Conjugate [dn[0, p1].sy.up[0, p] //ComplexExpand //FullSimplify 
out [742]- Exp [I*«p] * (Cos [0] *Sin[«]-*I*Cos[qo]l) 
n(743]:- Conjugate [dn[0, p1].sy.dn[0,«] //ComplexExpand //FullSimplify 
out (743]= -Sin [0] *Sin[@] 
n(744]:=sy == Sin[O0]*Sin[qo] * KroneckerProduct[up[0,], Conjugate[up[0,«]]] + 
ET (-I*@)*(Cos[0]*Sin[@]-I+*Cos[@]) * 
KroneckerProduct[up[0,(], Conjugate[dn[0,]]1] + 
E^(I*qg)*(Cos[0]*Sin[q]*I*Cos[q]) * 
KroneckerProduct[dn[0,«], Conjugate[up[0, Q1]] - 
Sin[0]*Sin[q] * KroneckerProduct[dn[0,«], Conjugate[dn[0, ]]] // 
ComplexExpand //FullSimplify 
Out [744]- True 


Dut [7 


EN 
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The matrix elements of the Pauli operator 6; are 


n(745]:=sz = PauliMatrix[3]; 

n[746]:=Conjugate [up[0, p]].sz.up[0,«] //ComplexExpand //FullSimplify 
out [746] - Cos [0] 

n[727):- Conjugate[up[0,«]].sz.dn[0,«] //ComplexExpand //FullSimplify 
out [747]- -Exp [- I*«p] *Sin[0] 

n(748]:- Conjugate [dn[0, p]].sz.up[0,«] //ComplexExpand //FullSimplify 
Out [748] - -Exp [I*«] *Sin[0] 

n(729):- Conjugate[dn[0,«]].sz.dn[0,«] //ComplexExpand //FullSimplify 
out [749] -Cos [0] 

n[750]:-Sz == Cos[0] * KroneckerProduct[up[0,], Conjugate[up[9,«11] - 


E^(-I*q)*Sin[0] * KroneckerProduct[up[0,], Conjugate[dn[0, 11] - 
E^(I*qg)*Sin[0] * KroneckerProduct[dn[0,q], Conjugate[up[0, 11] - 
Cos[0] * KroneckerProduct[dn[0,«], Conjugate[dn[0,«]]] // 
ComplexExpand //FullSimplify 

Out [750]- True 


We check the eigenvalue equations with eigenvalues +1: 


In[751]:-8 = sx*Sin[0]*Cos[q] + sy*Sin[0]*Sin[qQ] + sz*Cos[0]; 
1n[752]:- Eigenvalues [s] 

Out[752]-(-1, 1} 

1n[753]:- S. up[0, p] == up[0,«] //FullSimplify 

Out [753]= True 

in(754]:-s.dn[0,@] == -dn[0,@] //FullSimplify 


Out [754]= True 


Q2.2 (page 29) 


T. 
2. 
1 


2 


3 


3. 


Since $77: 4[n) (n| = 1, we have P(x, y) = (x|t]y) = (x|y) = 0(x— y). 
Ph 06 y) = 6 DOI] ly) = Dm (nly) = 2 Oey 
In[755]:- With [{nmax tot, 

P[x , y. ] = 2xSum[Sin[n*7z*x]*Sin[n*zt*y], ín, nmax}]; 


DensityPlot[P[x, y], ix, 0, 14, iy, 0, OF, 
PlotRange -> All, PlotPoints -> 2*nmax]] 


sin(nrx) sin(nry): 
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The operator În = $222 |n) (n| is the projector onto the computational subspace (see section 2.1.1). 
The function Ps, (x, y) = (X|Mnnsl¥) is its real-space representation. Since the plot of P5, (x, y) 
has a finite spatial resolution (/.e., no structure at length scales smaller than 1/Mmax), we see that this 


projection operator [1 is associated with a spatial smoothing operation. 


Nmax 


m 


N 


N 


Q2.3 (page 30) See Q2.1. 
Q2.4 (page 33) Inserting Equation (2.32) into Equation (2.17) gives the quantum state 


wo) = ee [- S ts] roc) 
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(1) 


We calculate its time-derivative with the chain rule and £ EIS h(x, y)dy] = = h(x, g(x))g' (x)—h(x, f (x))f' (x)- 


D one SHY) gy 
f(x 


pe = ¿Mo -i [ Rte | irt) = - RID. 


which is the Schródinger equation (2.16). 
Q2.5 (page 33) The Hamiltonian is 


(2) 


In[756]:={sx,sy,sz} = Table[PauliMatrix[i], (i, 3}]; 
In[757]:=H = Sin[0]*Cos[q]*sx + Sin[@]*Sin[@]*sy + Cos[0]*sz //FullSimplify 
out (7571={{Cos [0] , E^C-I*q)*Sin[0]), (E^(I*q)*Sin[0], -Cos[0]}} 


and the propagator is calculated from Equation (2.34) 


In(758]:=U = MatrixExp[-I*(t-tO)/h*H] //FullSimplify 
out [758]- (Cos [(t-t0) /h] -I*Cos [0] *Sin[(t-tO)/h], -I*E^(-I*q)*Sin[0]*Sin[(t-t0O) /h]3, 
(-I*E^(I*q)*Sin[0]*Sin[(t-tO)/h], Cos[(t-t0)/f]+1*Cos [0] *Sin[ (t-t0) /h] }} 


Q2.6 (page 33) The definitions are ordered with decreasing specificity: 


In[759]:- ?U 
Global'U 
U[t ?NumericQ] := MatrixExp[-I H N[t]] 
U[t_] = MatrixExp[-I H 1] 


In this way, the more general definition 1n [234] does not override the more specific definition In [235]. 


Q2.7 (page 38) 


1. The Hamiltonian is 


a NO 00 08. 85 
i Ox? 0y od ' Ax? oy 02 


1 
+ mui tye c zx + yS Éu)-gé6a-)6(A — yo)ó(a — z2) 


(3) 


2. For example, we could use the harmonic-oscillator basis functions that diagonalize the six degrees of 


freedom in the absence of coupling (g — 0): the states |n) for which 


n" 8 1 
"omae Po mee |n) = fw(n+ 5 2m. 


with n € IN. Explicitly, the position representations of these states are 


x Ha(x/xo) 


(x|n) = bn(x) = oe 


(4) 


(5) 


For the six degrees of freedom we therefore propose the basis functions |n, Ny, , nz , ys, Ayo, Mz). 


p 
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3. The matrix elements are 


VANA) / / / / / 
(Ma Mo Nz, D, Dy», nz, [H.|n;, , Nyy Na Dos ny, nz) 


= MUO in, sk, Oy, shy Ôn sth, Ôn nt, Oy, ni, Oey ni, (Na F Ny, + Na + Poe + Dy, + Mz d 3) 


"Fg (Maa + Dy, Nz, Poo Nya, Nz / dx dy1 dz, dxody2d22|x1) 6a | QA lez) Ca Ie) (x21@L¥2) (Y2l@|Z2) (zəl 


66a — x»)ó(yi — ¥2)O(Z1 — Zo) | Myr n2, My My» n) 


= Bub, n, On, sty On. int Or, sth Oy, nt, Ónz, nt, (Ma F Ny + Na + Doo E Nyy + Na A 3) 


F 9] dxidyidzidxedyodz»ó oa — x2)0(y1 — yo)ó(zi — z2) 


x Qn, (x1) br, (x1) On, (V1) bry, (v1) On., (21) Oni, (21) On, (2) bn, (x2) On, (yo) bn, (¥2) nz, (22) bn, (2) 
= hwó 6 6 [o 


/ , , / / 1 (Ny + Ny Hna n n Nz +3) 
Doa N ~ Nyy Ny Nz Nz ny nl, ny, 11, Ory nt. a CoU ey To ge ToU 3 


a | [7 ts, 0969, 60», 6064,00] | [7 abn, 0004, 000», 000,0) [f 4260, (164, (005. (29 


= fwd Ón,, se, On, ni, On), ni, Oey sey (Me + My + Na + Mp + ny, + nz, + 3) 


, Ô 
Ma Nay Me, Oy, My 


/ 
Da x: ny, Dy 


g 
+ xS Rna Me Doo Mo Rn,, Dj Ayo Ny Rna by Nz TI, * (6) 


The required dimensionless integrals over products of four harmonic-oscillator eigenstates, 


? Hal) H(£) He(£) Ha(£) e. 


d 
5d £ my 2atb+ctd al bicld! 


Rasca oo | dooa = | (7) 


can either be calculated by analytic integration, 


In(760]:=@[n_, x ] = HermiteH[n, x]/Sqrt[2^n*n!*Sqrt [zt] ] E^ (-x^2/2) ; 
In[761]:- R[a, Integer/;a»-0, b Integer/;b»-0, c Integer/;c»-0, d Integer/;d»-0] := 
3 Integrate[qo[a,x]*qo[b,xl*o([c,x]*o[d,x], (x, -oo, oo 


m 


or by an explicit but hypergeometric formula’ (much faster), 


In[7621:=R[a_Integer/;a>=0, b Integer/;b»-0, c Integer/;c»-0, d Integer/;d»-0] 

2 If [0ddQ la+b+c+d], O, 

3 1/nx*(-1)7 ((a+b-c+d)/2)*Sqrt[c!/(2a!b!d!)]x 

Gamma [ (1+a-b+c-d) /2] *Gamma [ (1-a+b+c-d)/2] * 

HypergeometricPFQRegularized[((1-*a-b*c-d)/2, (1-atb+c-d)/2,-d}, 
(1*c-d, (1-a-btc-d)/2},1]] 


m 


Q2.8 (page 38) 


mU63:-w = Flatten[Table [apt [1113] 2L [i2] Jab3 L 1137], 
fii, Length[y11), (i2, Length[w2]), (i3, Length[w3]+1] 


Q2.9 (page 38) 


In[7641:=A = Flatten[Table[ai[[it,j1]]*a2[[i2,j21]*a3[[13,j31], 
(ii, Length[ai]}, (i2, Lensihle21+, 113, Length[a3]), 
{ji, Length[Transpose[a1]]}, {j2, Length[Transpose[a2]]}, 
{j3, Length[Transpose[a3]]}], {{1,2,3}, {4,5,6}}] 


Q2.10 (page 38) Manual calculation: 
IV) = [0.8/0 — 0.614] € [0.6i]T) + 0.8|1)] = 0.4811) + 0.64/11) — 0.36i111) — 0.48|14), (8) 


where |N) = |f) @ |J) etc. In Mathematica, using the computational basis {|f}, |{)}, in this order: 


1See http: //www.ph.unimelb. edu. au/~ jnnewn/cm-seminar-results/report/AnalyticIntegral0fFourHermites. pdf. 


N 


N 


N 


w 
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In[765]:-1p1 = 
In[766]:-1p2 = 
In[767]:-1p = Flatten[KroneckerProduct[wp1, w2]] 

Out [7671=10.+0.48*I, 0.64+0.*I, 0.-0.36*1I, -0.48+0.*I} 


10.8, -0.6}; 
(0.6*I, 0.8}; 


The ordering of the joint basis in the Kroneckerproduct result is therefore (114), |), Wt), D - 


Q2.11 (page 38) We calculate the reduced density matrices with the traceout command of In [256] 
and In [257]: 


In[768 
Out [768]= (10 . 6440 . XT, -0.48+0.*I}, (-0.4840.*I, 0.36+0.*I}} 
In[769 
Out [769]= (10. 360 . «T, 0.40.48*I), 1(0.-0.48*I, 0.64+0.*I}} 


;»p1 = traceout[w, -2] 


:=p2 = traceouthp, 2] 


In[77 


Out [7 


Since |y) is a product state, these reduced density matrices are equal to the pure states of the subsystems: 
In[770]:- 01 == KroneckerProduct[ip1, Conjugate[w1]] 
Out [770]- True 


11:=p2 == KroneckerProduct [pp 2, Conjugate [21] 
71]-True 


Chapter 3 spin and angular momentum 


Q3.1 (page 41) 
In[772):- sx [1/2] == 1/2*PauliMatrix[1] 
Out [772]- True 
In[773]:- sy [1/2] == 1/2*PauliMatrix[2] 
Out [773]- True 
In[774]:- Sz [1/2] == 1/2*PauliMatrix[3] 
Out [774]- True 
Q3.2 (page 41) We only check up to S = 10: 
1. commutators: 
i: | 1nt7751:=Table[sx[S].sy[S]-sy[S].sx[S] == I*sz[S], (S, 0, 10, 1/21] 
2 | Out(775]={True, True, True, True, True, True, True, True, True, True, True, True,True, 
E True, True, True, True, True, True, True, True} 
int776]:=Table[sy[S] .sz[S]-sz[S].sy[S] == I*sx[S], (S, 0, 10, 1/2}] 
s | Out(776]={True, True, True, True, True, True, True, True, True, True, True, True,True, 
6 True, True, True, True, True, True, True, True} 
7 |Int7771:=Table[sz[S].sx[S]-sx[S].sz[S] == I*sy[S], (S, 0, 10, 1/2}] 
g | Out(777]={True, True, True, True, True, True, True, True, True, True, True, True,True, 
9 True, True, True, True, True, True, True, True 
2. spin length: 


Out (778]= {True , True, True, True, True, True, 


1n[778):- Table[sx[S].sx[S]*sy[S].sy [S]*sz[S].sz[S] == S*(S+1)*id[S], {S,0,10,1/2}] 


True,True,True,True,True,True,True, 


True, True, True, True, True, True, True, True} 


3. Make sure to quit the Mathematica kernel before loading the spin-operator definitions and executing 
the following commands. On a MacBook Pro (Retina, 13-inch, Early 2015) with a 3.1 GHz Intel Core 


i7 CPU and 16 GB 1867 MHz DDR3 RAM, the limit is around S = 10° for all verifications: 


m 


M 


m 


N 
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1 | In[779]:- 82100000; 

2 | In[7s0]:=sx[s].sy[s]-sy[s].sx[s] == I*sz[s] //Timing 

3 [0ut[780]- (54. 3985, True} 

a | In(78il:=sy[s].sz[s]-sz[s].sy[s] == I*sx[s] //Timing 

s |Out[781]- (58.4917, True 

e |In[782):-SZ[s].sx[s]l-sx[sl.sz[s] == I*sy[s] //Timing 

7 |0ut[782]- (57.8856, True 

s | In(7s3]:=sx[s].sx[s]+sy[s].sy[s]+sz[s].sz[s] == s*(st1)*id[s] //Timing 
9 | out(783]={33.5487, True} 


Q3.3 (page 41) The expressions rapidly increase in complexity with increasing S: 


n[784]:=n = {Sin[0]*Cos[p], Sin[0]*Sin[q], Cos[0]}; 
n(785]:=With[{S=0}, MatrixExp[-I*a+«n.{sx[S],sy[S],sz(S]}] //FullSimplify] 
Out (785]= ( (1) 
n(786]:=With[{S=1/2}, MatrixExp[-I*o*n.ísx[Sl,sy[S],sz[S])] //FullSimplify] 
out [786]- {{Cos [x/2] -I*Cos[0]*Sin[«/2], Sin[«/2]*Sin[0]*(-I*Cos[qo]-Sin[qo])7, 
{Sinla/2]*Sin[0]*(-I*Cos[p]+Sin[@]), Cos[x/2]*I*Cos[0]*Sin[«/2]T) 
n[7871:=% /. A -> 0 
out [7871= 141, 0}, 10, 1}} 
n(7ss] :=With[{S=1}, MatrixExp[-I*a«n.{sx[S],sy[S],sz[S]}] //FullSimplify] 
out (788]= ( ( (Cos [x/2] - I*Cos [0] *Sin[a«/2])~2, 
E^C-I*q)*((-14Cos [x]) *Cos [0] -I*Sin[«]) *Sin[0]/Sqrt [2] , 
-E^ (-21*@) *Sin[«/2]^2*Sin[0]^2), 
{Sqrt [2] *E^ (-I*a) *Sin[«/2]*(Cos [x/2] -I*Cos [0] *Sin[«/2]) 
*Sin[0]*(-I*Cos[ocq]-*Sin[o*qQ]), 
Cos [«/2] ~2+Cos [20] *Sin[«/2] ^2, 
E* (-1*@) * (Cos [8] -Cos [x] *Cos [0] -I*Sin[«])*Sin[0]/Sqrt [2]}, 
(-E^ QIxp)*rSin[a/2172*Sin[0]72, 
-E^ (1*@) * ((-1+Cos [x] ) *Cos [0] -I*Sin[e])*Sin[0]/Sqrt [2] , 
(Cos Lax/2]+1*Cos [0] *Sin[a/2])~2}} 
In[789]:-5 /. A -> 0 
Out[789]-T11, 0, OF, 10, 1, OF, 10, 0, 13} 


Q3.4 (page 43) In the unit system of In[275] we have 


In[7901:=feval, evec} = Eigensystem[H[Quantity[1,"Teslas"]/MagneticFieldUnit, 0, 0]] 
Out [790]= ((-14012.476, 14012.476), 11-0.7071068, 0.7071068}, {0.7071068, 0.7071068}}} 


To convert the energy eigenvalues to Joules (or Yoctojoules), we use 


In[791]:- UnitConvert [eval*EnergyUnit, "Yoctojoules"] 
0ut[791]- (-9. 284765 Yoctojoules, 9.284765 Yoctojoules} 


The corresponding eigenvectors are in the +x direction: 


e ground state: E_ = —9.28 x 107% J = —928yJ; |y.) = |-x) = —= 


e excited state: E, = +9.28 x 107 J = +9.28yJ; |) = |+x) = pgs 
Q3.5 (page 43) See also Q2.1 and Q2.3. 


In[7921:=Bvec = B*{Sin[0]*Cos[~], Sin[0]*Sin[q], Cos[0]}; 
In[793]:-Svec = {sx[1/2], sy[1/2], sz[1/2]}; 

In[794]:=H = -pB*ge*Bvec.Svec //FullSimplify; 
In{795]:={eval, evec} = Eigensystem[H] ; 

In[796]:- eval 

out (796]= (-B*ge*pnB/2, B*ge*pgB/2) 


7 


N 


w 
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In[797]:= Assuming [0«O«7t, ComplexExpand[Normalize /@ evec] //FullSimplify] 
out [797]- (4E^ (-I* p) «Cos [0/2] , Sin[0/2]}, (-E^C-I*q)*Sin[0/2], Cos[0/2]}} 


Q3.6 (page 52) We define all operators in the combined Hilbert space of both spins, so that the operators 
F can be defined by addition: 


In[798]:- With [fi-3, j=5}, 

Ix = KroneckerProduct[sx[i], id[jll; 
Iy = KroneckerProduct[sy[i], id[j]]; 
Iz = KroneckerProduct[sz[i], id[jll; 
Jx = KroneckerProduct[id[i], sx[jll; 
Jy = KroneckerProduct[id[i], sy[j]]; 
Jz = KroneckerProduct[id[il, sz[jll; 
Fx-Ix*Jx; Fy=ly+Jy; Fz-Iz*Jz;] 


We calculate the eigenvalues in ascending order with Sort. Remember that |/ — J| € F < I+ J, and 
therefore F € (2,3,4,5,6, 7, 8) and (F?) = F(F +1) € (6, 12, 20, 30, 42, 56, 72). 


In[799]:- Ix. Ix + Iy.Iy + Iz.Iz //Eigenvalues //Sort 

Qut [799]-4 12, 12, 12,12, 12,12, 12, 12,12, 12,12,12, 12,12,12, 12,12,12,12,12,12,12,12,12,12, 
12,.12,12,12,12,12,122.12,12,12, 155,12, 12; 12,12, 12,12, 12,1212, 12,125 12,12,12, 12, 
12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,127 

In[800]:- Iz //Eigenvalues //Sort 

Out [800]- ( -8, -3, -3, -3, -3,-3,-3,-3,-3,-3,-3,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-1,-1,-1, 
z4.-1.23.-1,-1,-1,-12,-1,0,0,0,0,0,0,0,0,0,0,0, 1;1,1,1, 1, 1; 15,1,1, 1, 1,2,2,2,2,25 
A 0. 2:9, 02, 2,2,.8,2 d, 2f 

In[801]: Jx. Jx + Jy.Jy + Jz.Jz //Eigenvalues //Sort 

out [801]- (20, 30, 80,30, 30, 30, 30,30,30, 30,30, 30, 30,30, 30,30,30,30,30, 30, 30,30, 30, 30, 30, 
30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30, 
20.90.,30,30,30,230,30,30,30,30,20,30,30, 30,30,20, 20, 30,30, 30,20, 30,30, 30,30, 303 

In[802]1:- Jz //Eigenvalues //Sort 

Out [802]- (-5 , -5, -5,-5,-5,-5,-5,-4,-4,-4,-4,-4,-4,-4,-3,-3,-3,-3,-3,-3,-3,-2,-2,-2,-2, 
-2,4-2,92,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,1,1,1,1,1,1,1,2,2,2,2,2,2,2,3,3,3, 
3,3,3,3,4,4,4,4,4,4,4,5,5,5,5,5,5,5} 

In[803]:=Fx.Fx + Fy.Fy + Fz.Fz //Eigenvalues //Sort 

Qut[sos1=6,6,6,6,6,12,12,12,12,12,12,12,20,20,20,20,20,20,20,20, 20, 30, 30,30, 30, 30,30, 
30,30,30,30,30,42,42,42,42,42,42,42,42,42,42,42,42,42,56,56,56,56,56,56,56,56, 
56,B5,56,56,55,56,56,12,72,72,72,72, 12,172,172, 2,1 2,72, 12, 12, 12,12,12, 12) 

In[804]:-Fz //Eigenvalues //Sort 

Out [804]- {-8,-7,-7,-6,-6,-6,-5,-5,-5,-5,-4,-4,-4,-4,-4,-3,-3,-3,-3,-3,-3,-2,-2,-2,-2, 
a2 225225202141 e021 110,050,000 Oly Oy Dy hyd hyd 2927252 5 2525358555 
3,3,3,4,4,4,4,4,5,5,5,5,6,6,6,7,7,8} 


Q3.7 (page 52) The Clebsch-Gordan coefficients (1, Mj, J, M |l, J, F, Mp) serve to construct the states 
that simultaneously diagonalize f?, JP, A and Ê, from those that simultaneously diagonalize f?, le J2, 
and Jj: for || — J| < F € I 4- J and |Me| € F, 


I J 
I,J, F, Me = Y) M, (1,M,,J, MIJ, F, Me) |1, M) ® |J My) (9) 
M¡=-1 Mj=-J 


In Mathematica, S[i,j,F,MF] = |/, J, F, Mp): 


Infe0s1:=S[i_,j_,F_,MF_] := Sum[ClebschGordan[{i,Mi},{j,Mj},{F,MF}]* 
Flatten [KroneckerProduct [SparseArray [i-Mi+1->1, 2i+1], 
SparseArray [j-Mj+1->1, 2j+1]]], 
(Mi,-1,1), (Mj,-j,j)] 


Check that these diagonalize P, I, A and É, simultaneously: 


= 
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In(s06] :=With[{i=3, j=5}, 
Table [(Ix.Ix+Iy.Iy+Iz.Iz).Sli,j,F,MF] == i(i-1)*S[i,j,F,MF] && 
Ox.Jx*Jy.Jy*Jz.Jz).S[i,j,F,MF] == j(j+1)*S[i,j,F,MF] && 
(Fx. Fxt+Fy .Fy+Fz.Fz).S(i,j,F,MF] == F(F+1)*S(i,j,F,MF] && 
Fz.S[i,j,F,MF] == MF«S[i,j,F,MF], 


(F,Abs[i-j],i*j), {MF,-F,FH 


(disregard the warnings about ClebschGordan: : phy). 

When we use the basis of product states |/, Mj) & |J, My) to calculate the eigenvectors of the ma- 
trices Fx. Fx*Fy .Fy*Fz.Fz and Fz, using either Eigenvectors or Eigensystem, these Clebsch-Gordan 
coefficients appear naturally as coefficients of the resulting eigenvectors. 

Q3.8 (page 52) 


In[807]:-With[(S = 100}, 
ip = SparseArray[1->1, 2841]; 
{x,y,Z, xx,yy,zz} = Conjugatel)].(#.W)& /@ 
{sx[S],sy[S],sz[S], sx[S].sx[S],sy[S].sy[S],sz[S].sz[S17; 
[(x,y,z), (xx-x^2,yy-y^2,zz-z^2)]] 
Out[807]-((0, O, 100), (50, 50, 033 


In general, 
(Sx) =0 (Sy) =0 ($2 =s 
(52) = $/2 ($2) = $/2 TOT 
($2) - (5,)° = 8/2 (Gy) 8/0 (52) — (5) =0 (10) 


Q3.9 (page 52) 


In[808]:- (^ , O) /. 
(Ei -> eval[[2]], Ej -> evall[7]], Tij > T[[2,71], Tji -> TLL7,2]]} /. 
hfc /. {Bz->3.22895,Bacx->0.1,Bacy->0,Bacz->0, w->27*6827 .9} 

Out [808]= (0. 00476766, 0.762616} 


The oscillation period is 27/Q = 8.238 99 us, which matches the full oscillation periods of the plots of 
In[321] and In[322]. 
Q3.10 (page 52) Na has the same nuclear spin / = 3/2 as 9'Rb; they differ only in the constants: 


e Ahfs = 885.813 064 40 MHz 
e g; = 0.000 804 610 80 
e gı = —0.999 976 13 
As a result, there is a magic field between the same states as for 87Rb, but at a field strength B; = 


0.676 851 G ~ 1948 


3uBgs ` 
Q3.11 (page 52) 95Rb has a nuclear spin / = 5/2, which means that we must re-define the spin operators; 
all operators are now 12 x 12 matrices. Further, the constants to be used are 


e Ants = 1.011 9108130 GHz 

e g, — 0.000 293 640 00 

e g, — —0.999 99354 

There are two magic fields: 

e B, —0.357312G ~ E 
stationary. 

e B, —1.14342G = Suec the energy difference between |F = 2, Me = —2) and |F = 3, Me = 2) is 
stationary. 


AE the energy difference between |F = 2, Me = —1) and |F = 3, Me = 1) is 


g 


m 


Ei 


Q3.12 (page 52) !33Cs has a nuclear spin 
all operators are now 16 x 16 matrices. F 


e Ants = 2.298 157 9425 GHz 
e g, = 0.000 398 853 95 
e g, = —0.999 995 87 


There are three magic fields: 
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| = 7/2, which means that we must re-define the spin operators; 
urther, the constants to be used are 


e B, = 1.39334 G ~ 12844: the energy difference between |F = 3, Me = —1) and |F = 4, Me = 1) is 


e B, = 3.48338 G ~ 244%: the energy difference between |F = 3, Me = —2) and |F = 4, Me = 2) is 


154895 
stationary. 
38 ge 
stationary. 
e B, — 8.9572G x pe the energy 
Ss 
stationary. 


Q3.13 (page 52) In the result from 


difference between |F = 3, Me = —3) and |F = 4, Me = 3) is 


In[809]:- Assuming [A»0, FullSimplify[T/.{Bx->0,By->0,Bz->0,Bacx->B, Bacy->1*B, Bacz->0}]] 


we can see that the transitions 1 © 5, 


166,30 7,3 o 8, 4 o 7, 4 © 8 are allowed. Using 


Equation (3.9) we identify these transitions as |2, 2) + |1, 1), |2,2) + |2, 1), |1,0) + |1, —1), |1,0) + 


12, 21), 12,0) © |1, 2 2), |2, 0) © |2, - 1). 
Q3.14 (page 52) In the result from 


These transitions are all AMF = +1. 


In[810]:- Assuming [A?0, FullSimplify[T/.{Bx->0,By->0,Bz->0,Bacx->0,Bacy->0,Bacz->B}]] 


5 € 6, 7 © 8 are allowed. Using Equation (3.9) we identify 


we can see that the transitions 3 + 4, 

these transitions as |1, 0) © |2, 0), |1, 1) 

Further, the energy of levels 1, 2, 5, 6, 7 
diagonal elements of T. 


o |2, 1), |1, -1) © |2, 21). These transitions are all AMF = 0. 
, 8 (í.e., all levels with Me 4 0) will be shifted by the non-zero 


Q3.15 (page 61) On a MacBook Pro (Retina, 13-inch, Early 2015) with a 3.1 GHz Intel Core i7 CPU and 
16 GB 1867 MHz DDR3 RAM, it takes around 20 minutes (AbsoluteTiming [y=gs[1,1];]) to calculate 


the ground state gs[1,1] with the defini 
of compressed RAM (MaxMemoryUsed []) 
calculation runs out of memory. 

Q3.16 (page 61) With the Mathematica 
transition around b = +2. Similar to the 


tion of In[350] and N — 22. This calculation uses over 24 GB 
and is the upper limit on N for this computer. For N = 23 the 


code of section 3.4, setting S — 1 and N — 12, we find a phase 
S = 1/2 case, the Ising model is gapless for |b| < 2 and gapped 


for |b| > 2. The correlations look qualitatively similar to the ones found for S — 1/2. 


Q3.17 (page 61) 


1. For b > too the ground states are a 
along the +2 axis: 


nalogous to those of the transverse Ising model, Equation (3.28), 


lese) = Hoz)", IV css) = I- 2". (11) 


Notice that, unlike the transverse Isi 


ng model, these asymptotic ground states are the exact ground 


states for |b| > 2, not just in the limits b — +oo. 


2. There are phase transitions at b — +2, recognizable in the ground-state gap. 


3. Since the states of Equation (11) are product states, there are absolutely no correlations between the 


states of the spins for |b| > 2. For |b 
entropy are qualitatively similar to 
correlations do not reach the full uni 
distance. 


Q3.18 (page 61) 


1. For b — +00 the ground states are 


« 2 the magnetization, spin—spin correlations, and entanglement 
those of the transverse Ising model. For b = O the spin-spin 
form 0.25 as for the Ising model, but rather they still decay with 


the same as Equation (11). 


2. At b = 0 the ground-state degeneracy is N+ 1. 
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3. For any b > 0, | +0) is the exact ground state; for any b < 0, |W_00) is the exact ground state. 
There is a phase transition at b= 0. 

4. Since the states of Equation (11) are product states, there are absolutely no correlations between the 
states of the spins for any b Æ 0. 


Q3.19 (page 62) 


1. Pas = I) (Ul = 111) (M1: 


In[811]:;-1p = Flatten[KroneckerProduct[(1,0), 11,031] 
2 Out[811]- (1, 0, O, OF 

1n[812]1: DAB. = KroneckerProduct[iwp, Conjugate[y1] 

out (s12]={{1,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}} 


m 


w 


2. ĝa = Tre fag = |f) (f| is a pure state: 


In[813]:=pA = traceout[pAB, -2] 
out (813]={{1,0}, {0,0}} 

In[814]:- Tr [pA . pA] 

Out [814]- 1 


m 


to 


w 


3. 6g = Tra Pag = |t)(T| is a pure state: 


1 | In[815]:=pB = traceout[pAB, 2] 
2 |Out[815]- (11,0), {0,0}} 

3 | In[816]:=Tr [pB. pB] 

Out [816]= 1 


4. Using In[353] and In[354], we see that the entropy of entanglement is Sa — Sag = Sg — Sag = 0 
(no entanglement): 


i: | In[817]:=SAB = Total[s /@ Eigenvalues [pAB]] 

2 |Out[817]- 0 

3 | In[818]:-S8A = Total[s /@ Eigenvalues[pA]] 

4 |Out [818]- O 

s | In(si9]:=SB = Total[s /@ Eigenvalues [pB]] 
Out [819] - 0 


Q3.20 (page 62) 
1. fag = |i) (| = LURO MUA — NAA- rot — tM HOD: 


1 |In[820]:-1p = Flatten[KroneckerProduct[{1,0}, 10,17] 
= KroneckerProduct[{0,1}, {1,0}]]/Sqrt [2] 
Out [820]={0, 1/Sqrt[2], -1/Sqrt[2], 0} 
4 | In[s2i]:=pAB = KroneckerProduct[ip, Conjugate[w]] 
& [|0ut[8211-110, 0,0, 0), 10,1/2,-1/2,04,, 10,-1/2,1/2,0+, 10,0,0, 03} 


N 


w 


2. ĝa = Trg fag = iqnp (1 + ID) is a mixed state: 


1 |1n[8221:- pÀ = traceout[pAB, -2] 
out [822]={{1/2,0}, {0,1/2}} 
1n[823] :- Tr [pA . pA] 

Out [823] - 1/2 


MN 


w 


3. ôs = TrA Bas = E(N (f| + | WI) is a mixed state: 


1 |In[824]:- pB. = traceout[pAB, 2] 
2 | out(s24]={{1/2,0}, {0,1/2}} 

3 | In[825]:- Tr [pB. pB] 

Out [825]- 1/2 


N 


m 


N 


m 


N 


m 
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4. Using In[353] and In[354], we see that the entropy of entanglement is Sa — Sag = Sg — Sag = 1 
(maximal entanglement): 


1 | Infe261:=SAB = Total[s /@ Eigenvalues[pAB]] 
2 |0ut[826]- 0 

Inle271:=SA = Total[s /@ Eigenvalues[pA]] 
Out [827]- 1 

In[828]:- SB = Total[s /@ Eigenvalues[pB]] 


Qut [828]- 1 


Q3.21 (page 70) Don't forget to complex-conjugate Wout on the left, for generality: 


In[829]:-ipout = {1/Sqrt[2], 0, O, 1/Sqrt[2]}; 

In[830]:- Table [Conjugate [pout] . (KroneckerProduct [PauliMatrix [i] ,PauliMatrix[j]].wout), 
1i,0,3+, {j,0,3}] 

Qut[830]-[41, Oy 0, OF, 10, 1, Gy Oh, 18, 0, -1, OF, 0, D, OQ, 17 


We find (Youll S Dour) = 1 (normalization), (Veulóx & Gx|Wour) = 1, (Voulóy Y Fy|Wout) = —1, 
(Wout|Fz Y Gz|Wout) = 1, and all others equal to zero. The density matrix is therefore 


1 

p=7(181+6,90,-0,86,+0,90,) 

[00) + |11) {00| + (11] 
v2 v2 


= 5 (100)(00| + |00) (11| + |11) (00| + |11)(11]) = (12) 


as expected. 


Q3.22 (page 70) Replace In[390] and In[391] with 


In[s31]:-u = {1,1}/Sqrt[2] ; 
Inte32):=U[qp_] = Exp[27m*I*@] * {{1,0},{0,1}}; 


and re-evaluate the attached Mathematica notebook. All results remain unchanged. 


Q3.23 (page 70) Replace In[390] and In[391] with 


In[833]:-u = {1,1}/Sqrt[2] ; 
in[s34]:-UL@_] = {{Exp[27+*I*@], 0}, {0, Exp[47*I*~]}}; 


and re-evaluate the attached Mathematica notebook. The probabilities for the different estimates of p 
show both frequencies simultaneously, and there is no cross-talk between them: 


In(s35]:=ListDensityPlot [Transpose[Table[probl@], {@,0,1,1/256}]], 
PlotRange->A11, DataRange->{{0,1},{0,1-27-t}}, 
FrameLabel->{"setting q","estimated q"J] 
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0.8 


0.6 


0.4 


estimated $ 


0.2 


0.0 
0.0 0.2 0.4 0.6 0.8 1.0 


setting $ 


Chapter 4 quantum motion in real space 


Q4.1 (page 72) Starting with the Schródinger equation 


h? oo d? oo 
x]. dx|x) 21 2 svp voted Ip) = E|v), (13) 
we (i) leave away the bracket and (ii) multiply by (y| from the left (y € R): 
h2 oo d? 65 
- s [exta oh [7 acts voto) = Evy) (14) 
Remembering that (y|x) = (x — y) and (x|y) = w(x): 
p^ f> oo 
"ES J. dxó(x — y)u" (x) + i dxó(x — y)V(x)p(x) = Ev (y) (15) 
Simplify the integrals with the Dirac ó-functions: 


n H Er 
md (y) - V(y)v(y) = Ev(y) (16) 


Since this is valid for any y € IR, it concludes the proof. 


Q4.2 (page 72) 
(lx) = | F axes" (| | F axoi) 


= f” aay toxo) 
= f] ayoo- y) 
= I - dx (x)x(x) (17) 
Q4.3 (page 79) 
1 |Infessl:=a =m = fi = 1; (* natural units *) 


2 |In[837]:-nmax = 100; 
s |In[838]:- TM = SparseArray[Band[{1,1}] -> Range[nmax]^2*7^2*fi^2/ (2*m*a^2)] ; 
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In[839]:- pM = SparseArray[{n1_,n2_}/;0ddQ[n1-n2] ->(4*1*fh*n1*n2) / (ax(n272-n172)), 
{nmax , nmax}] ; 
In[840]:- TM //N //Eigenvalues //Sort 


Out[840]- (4. 9348, 19.7392, 44.4132, 78.9568, 123.37, 177.653, ..., 48366., 49348.) 
In[841]:- pM. pM/ (2m) //N //Eigenvalues //Sort 
Out[841]- (4. 8183, 4.8183, 43.3646, 43.3646, 120.457, 120.457, ..., 47257.4, 47257.4} 


The eigenvalues of f are quadratically spaced, whereas those of p?/(2m) come in degenerate pairs (one 
involving only states of even n and one only states of odd n) and thus never converge to the eigenvalues of 
T, even in the limit Nmax — oo. 

Q4.4 (page 79) We use the more accurate form of the position operator from In [434]: 


Inls42J:=a = m = fi = 1; (* natural units *) 
In[8431:=nmax = 20; 
In[s44]:=xM = SparseArray[{ 
Band (¢41,1}] => af2, 
£n1_,n2_) /; OddQ[n1i-n2] -> -8*a*ni*n2/(7^2*(n1^2-n2^2)^2)), 
{nmax ,nmax}] ; 
In[s451:=pM = SparseArrayl[ín1. ,n2 3/;0ddQ[n1-n2]-»4*I*fi*ni*n2/(a*(n2^2-n1^2)), 
{nmax ,nmax}] ; 
In[846]:- coM = xM.pM - pM.xM; (* commutator [x,p] in the momentum basis *) 
In[847]:- coM/fi. //N //MatrixForm 


In the upper-left corner (low values of n) the result looks like the unit matrix multiplied by the imaginary unit 
i; but towards the lower-right corner (large values of n) it deviates dramatically from the correct expression. 
This is to be expected from the problematic nature of the momentum operator; see section 4.1.6. 

Q4.5 (page 83) The exact probability is about 37.1%: 


In[848]:- Integrate [p [1,x]^2, (x, 0, 1)] //N 
Out [848] = O. 37087 


[460], the first numerical method gives a good approximation of 37.096: 


In[849] := Integrate [p0 [x]^°2, {x, 0, 1}] 
Out [849] = 0. 369801 


Using In 


Using In[477], the second numerical method gives an approximation of 36.2%: 


In[850]:= Integrate [p0[x]72, (x, 0, 17] 
Out [850] = 0. 362126 


Alternatively, we set up an interpolating function from the data of In[474], and integrate it numerically. 
The result depends on the interpolation order: higher-order interpolations tend to yield more accurate 
results. 


n[851]:-1pOii1 = Interpolation[y, InterpolationOrder -> 1]; 
n[852]:- NIntegrate[wpOii[x]^2, {x, 0, 1}] 
Out [852] = 0 . 302899 
n[s53]:=1p0i2 = Interpolation[y, InterpolationOrder -> 2]; 
n[854]:- NIntegrate[wpOi2[x]^2, fx, 0, 1}] 
Out [854] = 0 . 358003 
n[855]:-1p013 = Interpolation[y, InterpolationOrder -> 3]; 
n[856):- NIntegrate[wpOi3[x]^2, fx, 0, 1}] 
Out [856]- 0. 3812 


Q4.6 (page 83) From Equation (4.31) the average height in state k is 


00 AR? 1/3 
visto = [^ adtok mme (Se) (18) 


which you can verify with In[448] and 
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In[857]:- Assuming [m>0&&g>0&&h>O, Table[Integrate[w[k,x]^2*x, {x, 0, oo}], {k, 1, 531] 


For a neutron in earth's gravitational field this gives an average height of about 9 um: 


In[858]:- With [fk 1, 
m = Quantity["NeutronMass"], 
g = Quantity["StandardAccelerationOfGravity"], 
h = Quantity ["ReducedPlanckConstant"]}, 
UnitConvert[-AiryAiZero[k]*(4*h^2/(27*m^2*g))^(1/3), "Micrometers"]] 
Out [858]= 9 . 147654 pm 


Q4.7 (page 83) The exact energy levels are E, = ħw(n + 1/2) with n € No. 

In the given unit system, the mass is m=1, Planck's constant is f=1, and the angular frequency is 
w=1/h=1. 

We set up a calculation in the position basis with the mixed-basis numerical method: 


n[859]:-a = 10; (* calculation box size *) 

»[86(00:-m = fi = w = 1; (* natural units *) 

n[861]:=nmax = 100; 

n[862]:-A = a/(nmax+1) ; (* grid spacing *) 

n[863]:-xgrid = Range[nmax]*A; (* the computational grid *) 

n[864]:=TP = FourierDST[SparseArray [Band [{1, 1}] ->Range [nmax]72*1172*f72/(2*m*a72)], 1]; 
n[865]:-W[x ] = m*w72*(x-a/2)72/2; (* the potential function, centered *) 
n[866]:=Wgrid = Map[W, xgrid]; (* the potential on the computational grid *) 

m[867]:- VP = SparseArray[Band[{1,1}] -> Wgrid]; 

n[868]:::HP = TP + VP; 


We find the energy eigenvalues (in units of E = hw) with 


In[869]:- E2genvalues [HP] //Sort 
Qut[869]-30.5, 1.5, 2.5, 3,5, 4.50001, 5.5001, 6.5006, 7.50293, &.51147, 9.53657, ...J 


and see that at least the lowest eigenvalues match the analytic expression. Using a larger value of Nmax will 
give more accurate eigenstates and eigenvalues. 
Q4.8 (page 85) The excited-state Wigner distribution has a significant negative region around its center: 


In(s70]:=gsP = Transpose[Sort[Transpose[-Eigensystem[-N[HP] , 2, 
Method-»("Arnoldi", "Criteria"->"RealPart", MaxIterations-»10^6)]111; 
In[871):- WignerDistributionPlot[gsP[[2, 21], (0, aj] 


Q4.9 (page 91) 


In[872]:-X = RandomReal[{0,1}, (2,2)] 

0ut[872]1-((0. 580888, 0.80848), (0.218175, 0.979598}} 
In[873)]:- Y = RandomReal[(0,1), {2,2}] 

0ut[873]- (40.448364, 0.774595), (0.490198, 0.310169)? 
In[874]:-X. Y - Y.X 

0ut[874]- (40.227318, -0.420567), (0.225597, -0.227318}} 
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In[e751:=MatrixExp[X + Y] 

out (875]={{4.68326, 6.06108}, (2.71213, 5.68068}} 
In[876]:- Matri xExp [X] . MatrixExp [Y] 

out (876]={{5.0593, 5.38209}, (3.10936, 5.31705}} 


Q4.10 (page 91) We use the split-step propagation code of section 4.1.9 with the potential 


In[s77]:=a = m = fi = 1; 
In[878]: With [TWO = O * h^2/(m*a^2)], 
W[x ] = WOx*Sin[10x*11*x/a] ;] 


and the initial wavefunction 
In[879]:- With [{x0=a/2, o=0.05*a, k=100/a}, 


vO-Normalize[Function[x, E^(-(C(x-x0)^2/(4*0^72)))*E^(I*k*x)] /@ xgrid];] 


For Wo = 0 the Gaussian wavepacket bounces back and forth between the simulation boundaries and 
disperses slowly; the self-interference at the reflection points is clearly visible: 


1. 
0.8 
0.6 
x 
0.4 
0.2 
0. 0.0 


0. 0.01 0.02 0.03 0.04 0.05 0.00 0.01 0.02 0.03 0.04 0.05 
t t 


1.0 


0.8; 


0.6 


(x) 


0.4! 


0.2; 


For Wo = 50005 the Gaussian wavepacket remains mostly trapped: 


1. 1.0 
0.8 0.8} d 
0.6 0.6 | 
x & 
0.4 0.44 J 
0.2 0.2 Ł 
0. 0.0 


0. 0.01 0.02 0.03 0.04 0.05 0.00 0.01 0.02 0.03 0.04 0.05 
t t 


Q4.11 (page 92) 


1. W(x) is a double-well potential with minima at x = ic 6 and a barrier height of (2: 


1 |Intss01:=W[XQ_, 8.9), x ] = Ox(((x-1/2)/5)72-1)72; 

2 |Intss11:=Table[W[XQ,5),x], {x,1/2-5,1/2+5,5}] 

s [Out[881]- (0, Q, OF 

4 |In[882]:- Table [D[W[(O.,83,y1, y] /. y->x, {x,1/2-5,1/2+5,5}] 
s |Out[882]- 0, O, O} 

e !In[883]:- Plot [W[(1, 1/4), x], fx, 0, 1}] 


œ 
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3. 


N 
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. As in Q4.10, we use the split-step propagation code of section 4.1.9 with the potential 


In[884]:=With[{Q = 250, 6 = 1/4}, 
W[x ] = WIXQO, ô}, x];] 


With the initial state from In[879] (Q4.10) with x0=0.2694, 0=0.0554, k=0, the time-dependent 
density is seen to oscillate between the wells: 


In[885]: With [(At = 20, M = 1074}, 

V = propApprox[At, M, v0];] 
In[886]:- p = ArrayPad[ (nmax+1)*Abs [+[[211]7728% /@ V, {{0,0},{1,1}}]; 
In[s87]:=ArrayPlot [Reverse [Transpose[p]]] 


N 


0. 
0.2 4 6 8 10 12 14 16 18 20 0 
t 


This oscillation is apparent in the left/right probabilities: 


In[888]:- Li stLineP1ot [CGEL [11] , Norm [£ [[2, ; ; (nmax/2)]1]11^2)& /0 V, 
{#[[1]] , Norm [£ L[2,nmax/241; ;]1]^2)& /@ VH 


z 

8 — left 
Q 

2 

e — right 


Now we use In[500] and observe that the attractive interactions prevent the particle from tunneling 
between the wells: 


In[889]:;-With[(k = 0.5, At = 20, M = 1074}, 

V = propApprox[W[+1]%, «x, At, M, v0];] 
1n[890]:- p = ArrayPad[(nmax+1)*Abs[#[[2]]]72&% /@ V, {{0,0},{1,1}}]; 
1n[891]:- ArrayP1ot [Reverse [Transpose[p]]] 


N 


0. 
0.2 4 6 8 10 12 14 16 18 20 0 
t 


1n[892]:- Li stLinePlot [CGEL [11] , Norm [2 [[2, ; ; (nmax/2)]]]^2}& /@ V, 
{#[[1]] , Norm [£ L[2,nmax/241; ;]11]^2)& /@ V) 
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PPT TTT 
0.8 + ] 
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— right 
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Q4.12 (page 95) 


1. 


1 


3 


We do this calculation in Mathematica, for the more general potential W(x) = 5k(x— 1)*: 


mn[s93]:=C[x_] = E^(- C(x-1/2)/ (2*0)) ^2) /8qrt [o*Sqrt [2*7] ] ; 

In[8941:-Assuming[o>0, Integrate[G[x]^2, (x, -oo, co}]] 

Out [894]- 1 

In[895]:- Assuming [o>0, 

e = Integrate[C[x]*(-1/2*G' '[x] + 1/2*k*(x-1/2)^2*G[x1), (x, -oo, oo}]] 
Out [895]- (1+4*k*074) / (8*072) 

In[896]:;-Solve[D[e, 0] == 0, o] 

out [896]= {{0 -» -1/(Sqrt[2]*k~(1/4))}, fo -> -I/(Sart[2] *k^ (1/40), 

lo -> I/(Sqrt[2]*k^ (1/2)) 3, (o -> 1/(Sqrt[2] *k7 (1/4) )}} 


Of these four solutions, we choose g = (4k)~'/* because it is real and positive: 


In[897]:-e /. © -> (4*k)7 (-1/4) 
Out [897] - Sqrt [k] /2 


For k = 5000, the ground state is therefore C(x) with o = 20000- !/^ = 0.084 0896 and energy 
E = ./5000/2 ~ 35.3553. 


We use the same code as in section 4.2.1 but with the potential 


5000}, 
1/2k+(%-1/2)727] 


In[898]:- With [Xx 
W[x_] 


Further, we use nmax=1000 to describe the wavefunction with strongly attractive interactions better. 
The result matches the Gaussian approximation: both the energy and the chemical potential are 
approximately Vk/2, 


In[s99]:=groundstate[107-4, O] [[;;21] 
Dut[899]- (35. 3b53, 35.3553} 


. Ground-state density for repulsive interactions: 


In[900]:-With[(k = 100, 5B = 107-4}, 
{Etot, p, y} = groundstatelóf, Kk]; 
ListLinePlot[Join[{{0, 03), Transpose[{xgrid,Abs[y]72/A}], fta, 0, 
PlotRange -> All, PlotLabel -> {Etot, p)]] 


(152.821, 245.665) 


p(x) 


0.0 0.2 0.4 0.6 0.8 1.0 


Ground-state density for no interactions: 
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i | In[901]:- With[(k = 0, ôB = 107-4}, 

2 {Etot, p, y) = groundstatelóf, Kk]; 

ListLinePlot[Join[{{0, 033, Transposeltxgrid,Abs[y172/AH, {fa, 013, 
PlotRange -> All, PlotLabel -> {Etot, p}]] 


{35.3553, 35.3553} 


Ground-state density for attractive interactions: 


1 | Intoo2J:=With[fk = -100, 5B = 107-4}, 

2 {Etot, p, y) = groundstatelóf, Kk]; 

3 ListLinePlot[Join[{{0, 0}}, Transpose[Íxgrid,Abs[y]l^2/A)], tía, 033, 
PlotRange -> All, PlotLabel -> {Etot, p}]] 


(-415.136, - 1216.56} 


0.0 0.2 0.4 0.6 0.8 1.0 


4. The energy and chemical potential differ for k 4 0: 


1 | In[903] :-=-With L{dp = 107-4}, 
ListLinePlot [Transpose [Table[{{k,groundstatel56,«] [[1]]}, 


3 {k, groundstate[58,«] [[2]]}}, {«k, -100, 100, 10}]]]] 

Ot 

= 

S 500} ] — energy E 

Ww 

-1000 — chemical potential u 
-100 -50 0 50 100 
K 


Q4.13 (page 100) We do this calculation for a = 1; the prefactor a^! of the right-hand side of 
Equation (4.65) can be found by a variable substitution x ++ ax”. From the momentum basis functions 


In[904]:= [n , x ] = Sqrt[2] *Sin [n*zt*x] ; 


we define the position basis functions 


In[905] := 0 [nmax_, j., x ] := 1/Sqrt[nmax*1]*Sum[q [n, j/ (nmax*1)]*«*[n,x], {n,nmax}] 


The exact overlap integrals are 


N 


w 
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In[906] := J [nmax_, {j1_,j2_,j3_,j4_}] := 
Integrate [0 [nmax, j1,x] *0 [nmax, j2, x] x9[nmax, j3,x]*0[nmax, j4,x], {x,0,1}] 


We make a table of overlap integrals, calculated both exactly and approximately through 1n[504], and 
show that the difference is zero (up to numerical inaccuracies): 


In[907]:- With [Ínmax = 3}, 
A = Table[J[nmax, 1j1,j2,j3,j4)], {j1,nmax},{j2,nmax},{j3,nmax},{j4,nmax}] ; 
B = FourierDST [Table [KroneckerDelta[n1+n2,n3+n4] 
+KroneckerDelta [n1+n3 ,n2+n4]+KroneckerDelta[ni+n4,n2+n3] 
-KroneckerDelta[n1 ,n2+n3+n4] -KroneckerDelta[n2,n1+n3+n4] 
-KroneckerDelta[n3,n1+n2+n4] -KroneckerDelta[n4,n1+n2+n3], 
{ni nmax}, {n2,nmax}, {n3,nmax}, {n4,nmax}] ,1]/2;] 
A - B //Abs //Max 
0ut[907]1-8.88178*10^-16 


Q4.14 (page 100) We define memoizing functions that calculate (€; — $2) and (($1 — X2)?) with 


In[908]:- Clear [A1 , ^2] ; 


In[909]:- A1 [k_?NumericQ] := Ai[k] = 
With[fy=gs[0,k,1][[2,111), Re[ConjugateLy] . ((x1-x2).y)]] 
In[910]:- A2 [k. ?NumericQ] := A2[k] = 


Wwith[fy=gs[0,k,1][[2,111), Re([ConjugateLyl.((x1-x2) . (x1-x2).y)]] 


The mean distance in the ground state is zero for symmetry reasons: (notice the numerical inaccuracies) 


In(911]:=ListLinePlot [Table[{x, Ai[k]), (kx, -25, 25, 1}]] 


40 20 


oL 


-20 -10 | 


The variance of the distance in the ground state increases with «K: 


In[9121:=ListLinePlot[Table[fk, A2[k]-A1i[k]72}, {k, -25, 25, 1}]] 
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Q4.15 (page 100) We show that all three terms of the Hamiltonian commute with the particle interchange 
operator: 


N 


w 
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In(913]:==.TP - TP.Z //Norm 
Out [913]- O . 
In[914]:2 Z. VP - VP.Z //Norm 
Out [914]- 0 


In[915]:- Z.HintP - HintP.= //Norm 
0ut[915]- 1. 15903*10^- 14 


Q4.16 (page 100) 


Im[916]:-D[Normal[HPa[O , k]], k] //Abs //Max 
Out [916]- 1. 03528:*10^- 15 


Q4.17 (page 101) We define the wavefunctions Y1 (x1,x2) for xy < x and Ya(x1,x2) for xı > xo: 


Into171:=1p1 [x1_,x2_] = A*(Cos [ock (x19x2-1)]*Cos [fx (x1-x2+1)] 
-Cos [ax (x1-x2+1)]*Cos [B* (x1+x2-1)]); 
In(918] :=1p2[x1_,x2_] = 1w1[x2,x1]; 


1. Check the boundary conditions W(x, 0) = Y(x1, 1) = W(0, x2) = (1, x2) = 0: 


m 


In[919]:- (p2[x1,0] , wi1[x1,1], w1[0O,x2], w2[1,x2]} //FullSimplify 
Out [919]- (0 , 0, 0, o} 


N 


Check that the two pieces match up for x = xo: 


1 |Inte201:=1p1[x,x] == 1p2[x,x] 
2 | Out[920]= True 


Check the symmetries of the wavefunction: 


1 | Into211:=1p1 [x1,x2] == w2[x2,x1] == w2[1-x1,1-x2] //FullSimplify 
2 | Out [921]= True 


x 


with energy value E = a? + B?: 


Check that the two pieces of the wavefunction satisfy the Schrodinger equation whenever x1 Z Xo, 


1 |1n[922]:- -1/2*D [w1 [x1, x2] , (x1, 21] -D Dp 1 [x1, x2] , 1x2, 22]. == 
2 (x^2*B^2)*w1[x1,x2] //FullSimplify 

Out [922]- True 

4  In[923):- -1/2*D [p2 [x1 ,x2] ,{x1,2}]+Dhp2[x1,x2] ,{x2,2}] == 
5 (ar2+f72)*xp2[x1,x2] //FullSimplify 

Out [923]- True 


a 


. The transformed Hamiltonian is 


w 


N 


[2] 


D(R,r) ifr>0 


A 1 8 Lo k 
= | iom | | 288 + 5h) (19) 
and the transformed wavefunctions are 
1 | Into241:=1p1 [(R*r) /Sqrt [2] , (R-r)/Sqrt[2]] //FullSimplify 
Out [924]- A* (Cos [ax (R*Sqrt [2] -1)] *Cos [fx (r*Sqrt [2] 1) ] 
3 -Cos [B* (R*Sqrt [2] -1)]*Cos [ax (r*Sqrt [2]+1)]) 
In[925] :-Ap2 [(R+r)/Sqrt [2] , (R-r)/Sqrt [2]] //FullSimplify 
Out [925]- A* (Cos [oc (R*Sqrt [2] -1)]*Cos [B* (r*Sqrt [2] - 15] 
-Cos [B* (R*Sqrt [2] -1)]*Cos [oc (r*Sqrt [2] -1)]) 
with 
R,r) ifr«O 
WR.n- e (20) 


m 
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4. The Schródinger equation in (R, r) coordinates is 


2 2 
agelu o+ [$55 + Sat] WR.) = (o? + WRI (21) 


We integrate Equation (21) over r € [—e, e]: 


1 f$ , OwW(R, 1 (€ Y(R, i 


Using partial integration on the second term of the left-hand side: 


1 (€ SY(R,r) 1[0Y(R,r) OYP(R, r) NL odios] 
2E. OR 2 | Or |. OF u Fog Ee rc qe e A AA 
(23) 
In the limit e + OF this equation becomes 
1[O0YA(R, MN OY, (R, r) E = 
: | £o) AT u EWR 0) =0 (24) 


Inserting the definitions of 3/4 and qo: 


In[926] := -1/2* ((Dhp2[(Rtr) /Sqrt [2] , (R-r) /Sqrt [21] ,r]/.r->0) 
2 - (Dhpi (+r) /Ssqrt [2] , (R-r) /8grt [2]] , z] /.r->0)) 
3 + K/Sqrt [2]*1p1[R/Sqrt [2] ,R/Sqrt[2]] //FullSimplify 
Out [926]- A* (Cos [B* (R*Sqrt [2] -1)] * (20*Sin [a] -k*Cos [x] ) 
-Cos [ax (R*Sqrt [2] -12] * C28 *Sin[Q] -k*Cos [B]1)) /Sqrt [2] 


The only way that this expression can be zero for all values of R € [0, V2] is if 2a sin(a) — K cos(a) = 
26 sin(B) — kcos(B) = 0, and hence if atan(a) = Gtan(B) = «/2. 


5. See the attached Mathematica notebook ContactInteraction.nb. 


Q4.18 (page 101) We solve this problem with the code of section 4.3.1, in the same way as Q4.14. The 
interaction potential is, according to Equation (4.71), 


In[927]:- With [62A] , 
Q[x ] = Piecewise[{{1/Abs [x] ,Abs[x]>5}, 41/05,Abs[x]<=837)];] 


and the interaction Hamiltonian Hint = K/|x| is approximately 


In(928]:=HintP = SparseArray[{ji_,j1_,j2_,j2_} :> Q[xgrid[[j1]]-xgrid[[j2]]], 
{nmax ,nmax,nmax,nmax}] //ArrayFlatten; 


With these definitions, the energy levels are (with a=m=h=1) 


We see that the lowest energy level is always symmetric under particle exchange (colored in red); the 
bosonic ground state is therefore just the lowest energy level. The expectation value (X, — X2) is zero by 
symmetry; its variance is 
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Q4.19 (page 101) We see in the answer of Q4.18 that the lowest fermionic state (blue) depends on the 
coupling strength «K. In the spirit of section 4.3.1 we define the fermionic Hamiltonian with In[529] and 
calculate the fermionic ground state with In [533]. The expectation values of X, — & and (€, — $2)? are 
calculated from the antisymmetric ground state with 


In[929]:=Clear[FAx, FAx2]; 
In[930]:=FAx[k_?NumericQ] := FAx[k] = 

With[fy=ags[0,k,11[[2,111), Re[Conjugate[y]. ((x1-x2).y)]] 
In[931]:=FAx2[k_?NumericQ] := FAx2[k] = 

With[fy=ags[0,k,11[[2,111), Re[Conjugate [y]. ((x1-x2) . (x1-x2).y)]] 


The expectation value (X, — $5) is zero by symmetry; its variance is larger than that for bosons: 


0.30 f 
0.25 
pea 
0.155 
0.105 
0.05 | 
0.00 E 


—— fermions 


Var(x1-xe) 


— bosons 


Q4.20 (page 105) The expectation values are the usual ones of the harmonic oscillator, given by 


|. 
~ 2muz 


|. 
^ 2muw,' 


|. 
2 muy" 


(x?) (y?) (z°) (25) 
They are independent in the three Cartesian directions. 
Q4.21 (page 106) We calculate the integral over the density in Cartesian coordinates by integrating only 


over the ellipsoid in which the density is nonzero: 


In[932]:=A = Assuming[Rx>0 && Ry>0 && Rz>0, 
Integrate [p0*(1-(x/Rx)^2-(y/Ry)^2-(z/Rz)^2), 
lx, -Rx, Rx}, 
ly, -Ry*Sqrt[1-(x/Rx)72], Ry*Sqrt[1-(x/Rx)72]}, 
{z, -Rz*Sqrt[1-(x/Rx)^2-(y/Ry)^2], Rz*Sqrt[1- (x/Rx)^2- Cy/Ry) 2131] 
Out [932]- 8/ 15* TEX Rx: Rys*Rz* pO 


Similarly, we calculate the integral of the density times x? with 


In[933]:-B = Assuming[Rx>0 && Ry»0 && Rz>0, 
Integrate[x^2 * po0x*(1-(x/Rx)72-(y/Ry)72-(z/Rz)72), 
ix, -Bx, RX}; 
ly, -Ry*Sqrt[1-(x/Rx)72], Ry*Sgrt[1- (x/Rx)^2]], 
{z, -Rz*Sqrt[1-(x/Rx)^2-(y/Ry)^2], Rz*8grt[1- (x/Rx) ^2- Cy/Ry) 211] 
Out [933]- 8/ 105 tK Rx ^S*Ry *Rz*pO 
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The expectation value (x?) is the ratio of these two integrals, 


In [934] := B/A 
Out [9341=Rx72/7 


With the value of Rẹ given in Equation (4.79)a, this becomes 


2 2 
1 [15%4a.(N — 1)wywz]5 1 [15&(N — 1)w,wz ] 5 
2 s yz ywz 
= = 2 
sa 7 | mw 7 | 4m mut? i ia 
2 2 
1 [15%Wa.(N — 1)uwxwz]? 1 [15&(N — 1)wxwz ] 5 
2 s xz xz 
= = 26)b 
o 7 | mu 7 4n mus ' (20) 
2 2 
1 [152a (N — 1)wxwy]5 1 [15k(N— 1)w,w, | 5 
(z*) = | “| = Yr. (26)c 
7 m?wt 7 4m mu 


We see that, in contrast to Q4.20, the expectation values of the three Cartesian directions are not 
independent of each other's trapping frequencies. 

Q4.22 (page 106) We plot the second moments of Equation (25) and Equation (26)a as functions of the 
particle number N: 


z (x?) numeric 
E! : A 
C TE A A A €) noninteracting 
> 
Zaat t A | à mimm (x?) Thomas-Fermi 
c 
= l 
^ — numeric 
£ oP) 
TT (y^) noninteracting 
1 10 100 1000 i05 tee (y^) Thomas-Fermi 


N 


The values of (z?) are equal to those of (y?) because of the cylindrical symmetry of the problem. The 
crossover point where the Thomas-Fermi second moment is equal to the noninteracting second moment is 
at 


- 49 Thu? - 49 Thus - 49 Thu? 
N, = 2+1, N= Y4+1, N= 2+1 (27 
* ^ 60astwywz Y 2m Y — 60aswxwz V 2m ^ 60aswxwy V 2m (40 


indicated with vertical lines in the above plot. The noninteracting limit, Equation (25), is good for N < 10. 
The Thomas-Fermi limit, Equation (26)a, is good for N 2 5000. Notice that for N = 3000 the numeric 
value of (x?) deviates from the Thomas-Fermi limit because of the finite size of the calculation box. 


Chapter 5 combining spatial motion and spin 


Q5.1 (page 113) The operators for these expectation values are 
1. A1 = KroneckerProduct [xop,ll+] = KroneckerProduct [xop,ids/2+sz] 
2. A2 
3. A3 
4. A4 = KroneckerProduct[xop,sz] = (A1-A2)/2 


KroneckerProduct [xop,TI,] = KroneckerProduct [xop,ids/2-sz] 


KroneckerProduct[xop,ids] = A1+A2 


With these we evaluate the quantities 
1. Re[Conjugate[yl . (A1.y)] 
2. Re[Conjugate [y] . (A2. y)] 
3. Re[Conjugate [y] . (43. y)] 
4 


. Re[Conjugate[y] . (A4.y)] for the mean 
Re [Conjugate [y] . (A4. A4. y) - CConjugate [y] . (A4.y)) ^2] for the variance 
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Q5.2 (page 115) The ordering of the subspaces of the Hilbert space is what matters here. We have 
defined the Hilbert space to be a tensor product of the x, y, and spin degrees of freedom, in this order. In 
In[629] the operators B, and Py are distinguished by the position in the Kronecker product in which pM 
appears. 

(5.3 (page 119) We do the first two checks of Q3.2: 


N (Sx, 5] = [EMOL lel. Jexsn — Joel 


_ (le (el +19) (elle) (gl — 19) el) — (le) (el — 19) (el) (le) (al + 1o) (el) 
4i 
(le) (el + 19) (el) = (le) (el — Las) 
4i 
_ loal- level _ lekel - los] _ s os 


le)(al— laYel. le) el - loa 

_ eda — lade leet — o (oh - (le tel - layelXle (el — 19) (el) 

- Clé ta - loe. (eva + lade 

¡ 

- ie = Ie Joel s lel ie "T 
i$, S = [LELIA lel + lotel 
_ (le)(el — Ig (al)(le)(gl + 19) el) — (le) (el + la) (ele (el — 19) (el) 
- (es - loe) - Cle + loe 


. legi - Igel. _ eal tae _ ig 
5 i iSy (30) 


2. grga- (P eia, (Ii "i T ean 


= [Bel Lp E lox e)tel 
4 
= MI + lee) = jl and hence S — 1/2. (31) 


Q8 Gage 119) St = & 41S, = lioe y logo... lotes loge = Lo) (gl. 
$- =8,- i$, etal tise | M = A le enel 1g) (el — Ig)(e|. We can see that $* is the 
operator that excites the atom ($*|g) = |e)) and é- is the operator that deexcites the atom (St|e) = |g)). 
6 a-a — 3-8 apa i-L313— 3l i Lai —ata—-atal 

Q5.5 (page 119) [X, B] = XP — PX = ai — LLL .. (ââ—âĝ +â â 22) (82 4ál—á4'á—ála) —— 
ilâ, $ =i. EP 

Q5.6 (page 119) Cavity field: ata =% Xo ARPA = Xp and hence 4t44+3 = 1P?41X?. 
Coupling: St§+at$- = ($4 $83. ASP (Sy ¡S,) 0o SX iS. PA iS, X SP iX$y—iPS.—PSy Rides 
the operators on the field and atom degrees of freedom commute (for example, [X, S,] = [X@1, 1@5,] = 0), 
this becomes $*3 + 3t $- = X9xtiPScHX$, Pos LIEGE = J2(X$, — P$,). 


